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3 
: 1.0 GENERAL INFORMATION 
§ 1.1. PROGRAM ABSTRACT 
8 
9 THIS DIAGNOSTIC PROGRAM WILL BE USED PRIMARILY BY FIELD 
10 SERVICE PERSONNEL TO EXERCISE THE LOPSE-F LETTER QUALITY 
3 PRINTER WITH A SERIAL INTERFACE TO A PDP-11 CPU. 
13 THIS PROGRAM WILL GENERATE SEVERAL PAGES OF PRINT ON THE 
us LOPSE-F PRINTER, LABELLING (WHEN ABLE) EACH TEST PRINT 
15 PATTERN WITH THE TEST TITLE. THIS WILL AID THE USER IN 
16 THE DIAGNOSIS OF PRINTER FAILURES. 
18 THE DIAGNOSTIC PROGRAM WILL HELP IDENTIFY FUNCTIONAL PROBLEMS 
19 WITH THE PRINTER CONNECTED TO A PDP-11 BY ANY OF FIVE SERIAL 
20 INTERFACE DEVICES. 
1 
23 THIS DIAGNOSTIC HAS BEEN WRITTEN FOR USE WITH THE DIAGNOSTIC 
24 RUNTIME SERVICES SOFTWARE (SUPERVISOR). THESE SERVICES PROVIDE 
25 THE INTERFACE TO THE OPERATOR AND TO THE SOFTWARE ENVIRONMENT. 
26 THIS PROGRAM CAN BE USED WITH XXDP+, ACT, APT, SLIDE AND PAPER 
27 TAPE. FOR A COMPLETE DESCRIPTION OF THE RUNTIME SERVICES, REFER 
28 TO THE XXDP+ USER'S MANUAL. THERE IS A BRIEF DESCRIPTION OF 
44 THE RUNTIME SERVICES IN SECTION 2 OF THIS DOCUMENT. 
3) 1.2 SYSTEM REQUIREMENTS 
33 THE MINIMUM HARDWARE CONFIGURATION FOR RUNNING THIS DIAGNOSTIC IS 
34 GIVEN HERE: 
35 1) A PDP-11 CPU WITH AT LEAST 16K WORDS OF MEMORY. 
36 2) A CONSOLE TERMINAL. 
37 3) LQPSE-F PRINTER 
38 4) ONE OF THE FOLLOWING INTERFACES: 
39 .0211, 
40 B) DL11-w, 
41 C) DLV11-J, 
42 D) DLV11-F, 
43 E) MXV11. 
4s 
6 1.3 RELATED DOCUMENTS AND STANDARDS 
48 1) XXDP+ USERS MANUAL - CHQUS. 
49 2) PDP-11 DIAGNOSTIC SUPERVISOR PROGRAMMERS GUIDE: 
50 HOW TO WRITE TO THE SUPERVISOR. 
51 3) DIAGNOSTIC ENGINEERING STANDARDS AND CONVENTIONS, 
23 PROGRAMMING PRACTICES. 
26 ' 1.4 DIAGNOSTIC HIERARCHY PREREQUISITES 
56 e THE MINIMUM HARDWARE CONFIGURATION DETAILED IN SECTION 1.2 
57 WITH THE EXCEPTION OF THE PRINTER IS ASSUMED TO BE FULLY 
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OPERATIONAL BEFORE THIS DIAGNOSTIC IS RUN. 
1.5 ASSUMPTIONS 


2.0 OPERATING INSTRUCTIONS 


THIS SECTION CONTAINS A BRIEF DESCRIPTION OF THE RUNTIME SERVICES. 
FOR DETAILED INFORMATION, REFER TO THE XXDP+* USER'S MANUAL (CHQUS). 


2.1 COMMANDS | 
THERE ARE ELEVEN LEGAL COMMANDS FOR THE DIAGNOSTIC RUNTIME SERVICES | 


(SUPERVISOR). THIS SECTION LISTS THE COMMANDS AND GIVES A VERY 
BRIEF DESCRIPTIGN OF THEM. THE XXDP+ USER'S MANUAL HAS MORE DETAILS. 


COMMAND EFFECT 

START START THE DIAGNOSTIC FROM AN INITIAL STATE 

RESTART START THE DIAGNOSTIC WITHOUT INITIALIZING 

CONTINUE CONTINUE AT TEST THAT WAS INTERRUPTED (AFTER “C) 

PROCEED CONTINUE FROM AN ERROR HALT 

EXIT RETURN TO XXDP+ MONITOR (XXDP+ OPERATION ONLY!) 

ADD ACTIVATE A UNIT FOR TESTING (ALL UNITS ARE 
CONSIDERED y BE ACTIVE AT START TIME 

DROP DEACTIVATE A_UNIT 

PRINT PRINT STATISTICAL gt ple (IF IMPLEMENTED 
BY THE DIAGNOSTIC - SECTION 4.0) 

DISPLAY TYPE A LIST OF ALL DEVICE INFORMATION 

FLAGS TYPE THE STATE OF ALL FLAGS (SEE SECTION 2.3) 

ZFLAGS CLEAR ALL FLAGS (SEE SECTION 2.3) 


A COMMAND CAN BE RECOGNIZED BY THE FIRST THREE es so 
YOU MAY, FOR EXAMPLE, TYPE ‘'STA’’ INSTEAD OF ‘‘START 


2.2 SWITCHES 


THERE ARE SEVERAL SWITCHES WHICH ARE USED TO MODIFY SUPERVISOR OPERATION. 
THESE SWITCHES ARE APPENDED TO THE LEGAL COMMANDS. ALL OF THE LEGAL 
SWITCHES ARE TABULATED BELOW WITH A BRIEF DESCRIPTION OF EACH. 

IN THE DESCRIPTIONS BELOW, A DECIMAL NUMBER IS DESIGNATED BY ‘‘DDDDD"’. 


SWITCH EFFECT 
/TESTS:LIST EXECUTE ONLY THOSE ge SPECIFIED IN 
THE LIST. LIST A STRING OF TEST 


IL 
/PASS:DDDDD EXECUTE DDDDD PASSES (DDDDD = 1 TO 64000) 
/FLAGS:FLGS Sate FLAGS ARE DESCRIBED 
/EOP:DODDD REPORT END OF PASS MESSAGE ty EVERY 
DDDDD PASSES ONLY. (DDDDD = 1 TO 64000) 
/UNITS:LIST TEST/ADD/DROP ONLY THOSE UNITS SPECIFIED 
IN THE LIST. LIST EXAMPLE - /UNITS:0:5:10-12 
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USE UNITS 0,5,10,11,12 (UNIT NUMBERS = 0-63) 
EXAMPLE OF SWITCH USAGE: 
START/TESTS: 1=5/PASS: 1000/E0P: 100 
THE EFFECT OF THIS COMMAND WILL BE: 1) TESTS 1 THROUGH 5 BE \ 


EXECUTED, 2) ALL UNITS WILL TESTED 1000 TIMES AND 3) yt . OF f 
PASS MESSAGES WILL BE PRINTED AFTER EACH 100 PASSES ONL 
SWITCH CAN BE RECOGNIZED BY THE FIRST THREE CHARACTERS. “vou MAY, 


FOR EXAMPLE, TYPE ‘'/TES:1-5'' INSTEAD OF ‘'/TESTS:1-5"". 


BELOW IS A TABLE THAT SPECIFIES WHICH SWITCHES CAN BE USED BY EACH 
COMMAND. 


TESTS PASS FLAGS  €OP UNITS 

START x x X 
RESTART X x x 
CONTINUE x xX 
x 


2.9 FLAGS 


FLAGS ARE USED TO SET UP CERTAIN OPERATIONAL PARAMETERS SUCH AS 
LOOPING ON ERROR. ALL FLAGS ARE CLEARED AT STARTUP AND REMAIN 
CLEARED UNTIL EXPLICITLY SET USING THE FLAGS SWITCH. FLAGS 

ARE ALSO CLEARED AFTER A START COMMAND UNLESS SET USING THE 

FLAG SWITCH. THE ZFLAGS COMMAND MAY ALSO BE USED TO CLEAR 

ALL FLAGS. WITH THE EXCEPTION OF THE START AND ZFLAGS COMMANDS, 
NO COMMANDS AFFECT THE STATE OF THE FLAGS; THEY REMAIN SET OR 
CLEARED AS SPECIFIED BY THE LAST FLAG SWITCH. 


FLAG EFFECT 

HOE HALT ON ERROR - CONTROL * — TO 
RUNTIME SERVICES COMMAND MODE 

LOE LOOP ON ERROR (NOT SUPPORTED IN THIS 
DIAGNOSTIC) 

IER* INHIBIT ALL ERROR REPORTS 

IBR* INHIBIT ALL ERROR REPORTS EXCEPT 


FIRST LEVEL (FIRST LEVEL CONTAINS 
ERROR TYPE, NUMBER, PC, TEST AND UNIT) 


IXR* INHIBIT EXTENDED ERROR REPORTS (THOSE 
CALLED BY PRINTX MACRO'S) 

PRI DIRECT MESSAGES TO LINE PRINTER 

PNT PRINT TEST NUMBER AS TEST EXECUTES 

BOE “BELL'' ON ERROR 

UAM UNATTENDED MODE (NO MANUAL INTERVENTION) 


SEQ 5 
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ISR INHIBIT STATISTICAL REPORTS (DOES NOT 
APPLY TO fag rt WHICH DO NOT SUPPORT 


STATISTICAL REPORTING) 
IDR INHIBIT PROGRAM DROPPING OF UNITS 
ADR EXECUTE AUTODROP CODE 
LOT LOOP ON TEST 
EVL EXECUTE EVALUATION (ON yperarics WHICH 


HAVE EVALUATION SUPPORT) 
*ERROR MESSAGES ARE DESCRIBED IN SECTION 3.1 


SEE THE XXDP+ USER'S MANUAL FOR MORE DETAILS ON FLAGS. YOU MAY 
SPECIFY MORE THAN ONE FLAG WITH THE FLAG SWITCH. FOR EXAMPLE, 
TO CAUSE THE PROGRAM TO LOOP ON ERROR, INHIBIT ERROR REPORTS 
AND TYPE A BELL" ON ERROR, YOU MAY USE THE FOLLOWING STRING: 


/FLAGS: 1ER:BOE 


2.4 HARDWARE QUESTIONS 


WHEN A DIAGNOSTIC IS STARTED, THE RUNTIME SERVICES WILL PROMPT 
THE USER FOR HARDWARE INFORMATION BY TYPING '‘CHANGE HW (L) ?°° 
YOU MUST ANSWER ‘'Y'’ AFTER A START COMMAND UNLESS THE HARDWARE 
INFORMATION HAS BEEN “PRELOADED™’ USING THE SETUP UTILITY (SEE 
CHAPTER 6 OF THE XXDP+ USER'S MANUAL). WHEN YOU ANSWER THIS 
QUESTION WITH A ''Y'', THE RUNTIME SERVICES WILL ASK FOR THE NUMBER 
OF UmiTS CIN DECIMAL). YOU WILL THEN BE ASKED THE FOLLOWING 
QUESTIONS FOR EACH UNIT. 


Q1: “CHOOSE PAGE WIDTH FOR THE PRINTER 


CHOOSE ONE: 1)80 CHARACTERS PER PRINTER LINE 
(1.2) 2)132 CHARACTERS PER PRINTER LINE 
s >> 


Q?: "IF ALL DEFAULT VALUES FOR INTERFACE DESIRED,ENTER “Z. 
IF DEFAULT DESIRED FOR A SINGLE INTERFACE CHARACTERISTIC 
DEPRESS <RETURN>. 
“ENTER CONTROL STATUS REGISTER (CSR) ADDRESS.>> 
Q3: “PRINTER CONNECTED TO A SINGLE LINE INTERFACE? 


Q3-A: ‘ENTER imTERFACE CHANNEL NUMBER FOR THE PRINTER. 
CASKED ONLY IF G3 WAS ANSWERED BY A ‘N'') 


2.5 SOFTWARE QUESTIONS 
AFTER YOU HAVE ANSWERED THE HARDWARE QUESTIONS OR AFTER A RES‘ART 


SEQ 6 
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OR CONTINUE COMMAND, THE RUNTIME SERVICES WILL ASK FOR SOFTWARE 
PARAMETERS. THESE PARAMETERS WILL GOVERN SOME oe SPECIFIC 
OPERATION MODES. YOU WILL BE PROMPTED BY “CHANGE S 

IF YOU WISH TO CHANGE ANY PARAMETERS, ANSWER BY TYPIN ING” 

“"Y'', THE SOFTWARE QUESTIONS AND THE DEFAULT VALUES ARE DESCRIBED 
IN THE NEXT PARAGRAPH(S). 


NONE 
2.6 EXTENDED P-TABLE DIALOGUE 


WHEN YOU ANSWER THE HARDWARE QUESTIONS, YOU ARE BUILDING ENTRIES 
IN A TABLE THAT DESCRIBES THE DEVICES UNDER TEST. THE SIMPLEST 
WAY TO BUILD THIS TABLE IS TO ANSWER ALL QUESTIONS FOR EACH 
rr TO BE TESTED. IF YOU HAVE A MULTIPLEXED DEVICE SUCH AS 

A MASS STORAGE CONTROLLER WITH SEVERAL DRIVES OR A COMMUNICATION 
DEVICE WITH SEVERAL LINES, THIS BECOMES TEDIOUS SINCE MOST OF 
THE ANSWERS ARE REPETITIOUS. 


TO ILLUSTRATE A MORE EFFICIENT METHOD, SUPPOSE YOU ARE TESTING 

A FICTIONAL DEVICE, THE XY11. SUPPOSE THIS DEVICE CONSISTS OF 

A CONTROL MODULE WITH EIGHT UNITS (SUB-DEVICES) ATTACHED TO IT. 
THESE UNITS ARE DESCRIBED BY THE OCTAL NUMBERS 0 THROUGH 7. _ THERE 
1S ONE HARDWARE PARAMETER THAT CAN VARY AMONG UNITS CALLED THE 
Q-FACTOR. THIS Q-FACTOR MAY BE 0 OR 1. BELOW IS A SIMPLE WAY 

TO BUILD A TABLE FOR ONE XY11 WITH EIGHT UNITS. 


# UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. O<CR> 
Q-FACTOR (0) 0? 1<CR> 


UNIT 2 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?_ 1<CR> 
Q-FACTOR (0) 1? O<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 4 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 3<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 5 

CSR ADDRESS (0) ? —— 
SUB-DEVICE # (0) ? 4<CR> 
Q-FACTOR (0) 0 ? <CR> 


UNIT 6 
CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 5<CR> 


SEQ 7 
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Q-FACTOR (0) 0 ? <CR> 


UNIT 7 

CSR ADDRESS (0) ?_ 160000<CR> 
SUB-DEVICE # (0) ? 6<CR> 
Q-FACTOR (0) 0 ? 1<CR> 


UNIT 8 

CSR ADDRESS (0) 160000<CR> 
SUB-DEVICE # (0) 7 7<CR> 
Q-FACTOR (0) 1? <CR> 


NOTICE THAT THE DEFAULT VALUE FOR THE Q-FACTOR CHANGES WHEN A 
NON-DEFAULT RESPONSE IS GIVEN. BE CAREFUL WHEN SPECIFYING 
MULTIPLE UNITS! 


AS YOU CAN SEE FROM THE ABOVE EXAMPLE, THE HARDWARE PARAMETERS 
DO NOT VARY SIGNIFICANTLY FROM UNIT TO UNIT. THE PROCEDURE SHOWN IS 
NOT VERY EFFICIENT. 


THE RUNTIME SERVICES CAN TAKE MULTIPLE UNIT SPECIFIC poh es. HOWEVER. 
© ME THE SAME TABLE USING THE MULTIPLE SPECIFICATION 


# UNITS (D) ? 8<CR> 


UNIT 1 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 0,1<CR> 
Q-FACTOR (0) 0? 1,0<CR> 


UNIT 3 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ? 2-5<CR> 
Q-FACTOR (0) 0 ? O<CR> 


UNIT 7 

CSR ADDRESS (0) ? 160000<CR> 
SUB-DEVICE # (0) ?. 6,7<CR> 
Q-FACTOR (0) 0? 1<CR> 


AS YOU CAN SEE IN THE ABOVE DIALOGUE, THE RUNTIME SERVICES WILL 
BUILD AS MANY ENTRIES AS IT CAN WITH THE INFORMATION GIVEN IN ANY 
ONE PASS THROUGH THE QUESTIONS. IN THE FIRST PASS, TWO ENTRIES 
ARE BUILT SINCE TWO SUB-DEVICES AND Q-FACTORS WERE SPECIFIED. THE 
SERVICES ASSUME THAT THE CSR ADDRESS IS 160000 FOR BOTH SINCE IT 
WAS tag Aha orf IN THE SECOND PASS, FOUR ENTRIES WERE 


2. 3. 4 AND 5 W 

BY ADDRESSES, THE INCREMENT WOULD BE BY 2 SINCE ADDRESSES MUST 
BE ON AN EVEN BOUNDARY.) THE CSR ADDRESSES AND Q-FACTORS FOR 
THE FOUR ENTRIES ARE ASSUMED TO BE 160000 AND 0 RESPECTIVELY 
SINCE THEY WERE ONLY SPECIFIED ONCE. THE LAST TWO UNITS ARE 
SPECIFIED IN THE THIRD PASS. 


SEQ 8 


J 1 


r ——_——__— ——— - _ ee oe —_—_——_— —— a 
! 
| 


SEQ 9 

(CZLQPAO LOPSE=F PDP11 DIAG MACRO V03.01 7-NOV-80 10:06:10 PAGE 4-6 
| > 343 THE WHOLE PROCESS COULD HAVE BEEN ACCOMPLISHED IN ONE PASS AS 

zi SHOWN BELOW. 

346 # UNITS (D) ? 8<CR> 

347 

348 UNIT 1 

349 CSR ADDRESS (0) ? 160000<CR> 

350 SUB-DEVICE # (0) 2? 0-7<CR> 

351 Q-FACTOR (0) 0? 0,1,0,,.-1,1<CR> 

353 AS YOU CAN SEE FROM THIS EXAMPLE, NULL REPLIES (COMMAS ENCLOSING 

326 A NULL FIELD) TELL THE RUNTIME SERVICES TO REPEAT THE LAST REPLY. | 

356 2.7 QUICK START-UP PROCEDURE (XXDP+) | 

358 TO START-UP THIS PROGRAM: 

360 1. BOOT XXDP+ 

362 2. GIVE THE DATE AND ANSWER THE LSI AND SOHZ (IF THERE 

365 1S A CLOCK) QUESTIONS 

365 3. TYPE "'R NAME", WHERE NAME IS THE NAME OF THE BIN OR BIC 

366 FILE FOR THIS PROGRAM 

368 4. TYPE "'START" | 

370 5. ANSWER THE ‘‘CHANGE HW'’ QUESTION WITH ‘'Y'’ 

372 6. ANSWER ALL THE HARDWARE QUESTIONS 

374 7. ANSWER THE "'CHANGE SW’ QUESTION WITH ‘'N’’ (NOT ASKED) 

376 WHEN YOU FOLLOW THIS PROCEDURE YOU WILL BE USING ONLY THE 

377 DEFAULTS FOR FLAGS AND SOFTWARE PARAMETERS. THESE DEFAULTS 

375 ARE DESCRIBED IN SECTIONS 2.3 AND 2.5. 

380 3.0 ERROR INFORMATION 

382 3.1 TYPES OF ERROR MESSAGES 

384 THERE ARE THREE LEVELS OF ERROR MESSAGES THAT MAY BE ISSUED BY 

385 A DIAGNOSTIC: GENERAL, BASIC AND EXTENDED. GENERAL ERROR MESSAGES 

386 ARE ALWAYS PRINTED UNLESS THE IER’ FLAG IS SET (SECTION 2.3). 

387 THE GENERAL ERROR MESSAGE IS OF THE FORM: 

389 NAME TYPE NUMBER ON UNIT NUMBER TST NUMBER PC:XXXXXX 

330 ERROR MESSAGE 

392 ,WHERE; NAME = DIAGNOSTIC NAME 

393 ; TYPE = ERROR TYPE (SYS FATAL, DEV FATAL, HARD OR SOFT) 

394 é NUMBER = ERROR NUMBER 

395 < UNIT NUMBER = 0 - N (N IS LAST UNIT IN PTABLE) 

396 ioe” TST NUMBER = TEST AND SUBTEST WHERE ERROR OCCURRED 

397 tee PC:XXXXXX = ADDRESS OF ERROR MESSAGE CALL 


399 Ys. re BASIC ERROR MESSAGES ARE MESSAGES THAT CONTAIN SOME ADDITIONAL 
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INFORMATION ABOUT THE ERROR. ho - ALWAYS PRINTED UNLESS 
THE “‘IER’’ OR “IBR'’ FLAGS ARE SET (SECTION 2.3). THESE MESSAGES 
ARE PRINTED AFTER THE ASSOCIATED GENERAL MESSAGE. 


EXTENDED ERROR MESSAGES CONTAIN SUPPLEMENTARY ERROR oe 
SUCH _AS REGISTER CONTENTS OR GOOD/BAD Bala THESE ARE ALWAYS 
PRINTED UNLESS THE “‘IER'', "‘IBR'' OR ‘‘IXR'’ FLAGS ARE SET (SECTION 2.3). 
THESE MESSAGES ARE PRINTED AFTER THE ASSOCIATED GENERAL ERROR 
MESSAGE AND ANY ASSOCIATED BASIC ERROR MESSAGES. 


3.2 SPECIFIC ERROR MESSAGES 


"1/0 FAILURE DETECTED AT PRINTER.’ 
PROBLEM WITH THE SELF TEST SEQUENCE. CHECK PRINTER ROM. 


“PRINTER soon FULL." 
""CAN'' CHARACTER HAS BEEN RECEIVED, AND THE PRINTER 
HAS DETECTED THAT ITS BUFFER LIMIT HAS BEEN REACHED. 


“PROM/RAM FAILURE DETECTED BY PRINTER." 
VALID ONLY AFTER THE SELF TEST. CHECK THE PRINTER MEMORY. 


“PRINTER ERROR: N OUT OF RANGE IN ESCAPE SEQUENCE."' 
AN UNDEFINED OR OUT OF RANGE ARGUMENT HAS BEEN SENT TO 
THE PRINTER WITHIN AN ESCAPE SEQUENCE.(PRINTER COMMAND) 


"PAUSE SWITCH PRESSED."' 
THE PRINTER FRONT PANEL PAUSE SWITCH HAS BEEN PRESSED. 


"RIBBON OUT ON PRINTER." 
THE PRINTER RIBBON MUST BE IN PLACE. 


A eteiecdaay CHARACTER OR ESCAPE SEQUENCE RECEIVED." 
N ILLEGAL SEQUENCE OR CHARACTER HAS BEEN RECEIVED. 
CHECK THE ADDRESS OF THE LAST TRANSMISSION WHICH 
IS GIVEN BY THE DIAGNOSTIC. 


“SHEET io ¥ ERROR." 
THE SHEET FEEDER HAS FAILED TO OPERATE PROPERLY. is 
Li MAY BE CLEARED BY SENDING AN “ESC 6" TO 


"SOFTWARE ERROR" 
THIS MESSAGE SHOULD NOT PRINT UNLESS THE SOFTWARE HAS 
BEEN CORRUPTED. 


"UNEXPECTED ogg 8 RECEIVED FROM PRINTER,"’ 
AN XON, . ANSWER-BACK RESPONSE OR STATUS RESPONSE 
WAS EX NECTED. OR NO TRANSMISSION WAS EXPECTED FROM THE 
PRINTER. SOMETHING WAS NONE THE LESS RECEIVED. 


“EXPECTED ag NOT RECEIVED FROM THE PRINTER." 
ie , CAN, EOT, OR ESC WAS EXPECTED BUT NOT 


SEQ 10 
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457 Taser CSR ADDRESS GIVEN. TRY AGAIN 

458 THE USER HAS ENTERRED AN INConRecT CSR ADDRESS OR THE 

459 DEFAULT ADDRESSES DID NOT WORK WHEN TRYED. THE USER 

at MUST NOW EXPLICITLY ENTER THE CORRECT CSR ADDRESS. 

462 "INCORRECT CSR ADDRESS OR CHANNEL GIVEN. TRY AGAIN."' 

re EITHER THE ADDRESS OR THE CHANNEL IS INCORRECT. 

465 “FAILED TO "Teeeoks TO PRINTER." 

466 THE TRANSMIT READY CONDITION COULD NOT BE OBTAINED. 

red CHECK THAT THE INTERFACE CABLE IS PROPERLY ATTACHED. 

469 ee A A CHARACTER FROM THE PRINTER,*' 

470 THIS IS NOT AN ERROR MESSAGE. IF THE CHARACTER IS ry 

471 RECEIVED EVENTUALLY, AN ERROR WILL OCCUR. THIS IS A 

472 INDICATOR TO THE USER THAT THE PROGRAM IS IN A WAITING 

473 STATE AND NOT SIMPLY ‘LOST’. WHEN THIS MESSAGE IS SEEN, 

aoe WALT FOR NO MORE THAN FIVE MINUTES BEFORE TAKING ACTION. 

476 "FAILED TG FIND PRINTER AT DEFAULT ADDRESSES. RESTART PROGRAM."’ 

477 THIS INDICATES THAT THE DEFAULT SEQUENCE WHICH 

478 THE PROGRAM WAS INSTRUCTED TO EXERCISE FAILED 

479 TO FIND A PRINTER AT THE ASSUMED DEFAULT 

480 ADDRESSES. THE USER MUST NOW RESTART THE 

481 PROGRAM, EXPLICILTY SPECIFYING THE CSR ADDRESS 

482 AND THE DZ11 CHANNEL (IF APPLICABLE) AND THE 

483 INTERFACE TYPE. 

484 

485 

486 

487 

rr 4.0 PERFORMANCE AND PROGRESS REPORTS 

490 AT THE END OF EACH PASS, THE PASS COUNT IS GIVEN ALONG WITH THE 

491 TOTAL NUMBER OF ERRORS REPORTED SINCE THE DIAGNOSTIC WAS STARTED. 

492 ; THE ‘EOP’ SWITCH CAN BE USED TO CONTROL HOW OFTEN THE END 

res OF PASS MESSAGE IS PRINTED. SECTION 2.2 DESCRIBES SWITCHES. 

495 NONE 

496 

44 5.0 DEVICE INFORMATION TABLES 

44 P-TABLE ENTRIES: 

501 CSRADD - CSR ADDRESS. IF FOUND TO BE ZERO, THIS INDICATES 

502 THAT THE DEFAULT CSR ADDRESSES ARE TO BE TRIED AS 

503 THE CSR ADDRESS. THE CSR ADDRESS IS THE ADDRESS OF 

504 THE RECEIVER CONTROL STATUS REGISTER IN THE SINGLE 
-- $05 LINE INTERFACES AND THE RECEIVER AND TRANSMITTER 

28 CSR FOR THE DZ11 INTERFACE. 

508 IOOPTN = 1/0 OPTION. A LOGICAL VALUE. IF EQUAL TO ‘'Y"’ THEN 

509 A DZ11 INTERFACE IS ASSUMED. IF EQUAL TO ‘W’’ THEN 

319 A SINGLE LINE INTERFACE IS ASSUMED. 

512 PTRCHN - PRINTER CHANNEL. THIS NUMBER (0-7) IS THE CHANNEL 

513 NUMBER ON A DZ11 INTERFACE WHICH IS CONNECTED TO THE 


SEQ 11 
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PRINTER. 


LINCHS - A ee LINE SIZE CHOICE. 
THIS NUMBER (1-2) CORRESPONDS * 
THE NUMBER OF CHARACTERS PER HORIZONTAL . DESIRED 
ON THE PRINTER. THIS. SHOULD BE CHOSEN BY THE USER 
BASED ON THE WIDTH OF THE FORMS USED ON THE PRINTER. 


6.0 TEST SUMMARIES 


EACH TEST WILL PRINT THE CURRENT TEST TITLE ON THE PRINTER AS PART OF 
THE TEST SEQUENCE. THIS WILL AID THE USER IN THE DIAGNOSIS PROCESS 

BY INFORMING THE USER OF THE PURPOSE OF THE CURRENT TEST. THIS IS 
THOUGHT TO BE PARTICULARY USEFUL WHEN THE USER IS RUNNING TESTS OUT OF 
oe ie an BECAUSE THE USUAL OVERALL TEST PRINT PATTERN 


IN ALL TESTS, BEFORE AND AFTER EACH TRANSMISSION TO THE PRINTER, THE 
RECEIVER BUFFER IS CHECKED. IF THE BUFFER CONTAINS A CHARACTER THEN 
THE PROGRAM CHECKS TO SEE IF IT IS AN EOT, OR A CAN CHARACTER. IF THE 
CHARACTER IS ONE OF THESE TWO THEN AN ERROR CONDITION EXISTS AND AN 
ERROR HANDLING ROUTINE IS CALLED. 


SELF TEST 


A SELF TEST IS INITIATED BY SENDING THE SEQUENCE ‘ESC NC" 
TO THE PRINTER. IT IS ASSUMED THAT NO CAN OR EOT SIGNALS 
WILL BE GENERATED IN THE PROCESS. A TIME DELAY WILL BE 
GENERATED TO WAIT FOR THE SELF TEST COMPLETION. THE PRINTER 
STATUS IS THEN EXAMINED. _ ARGUMENT N MAY BE ANY VALUE 
WITH NO EFFECT TO THE TEST 


SELF TEST COMPLETION WILL BE CONFIRMED BY THE SOFTWARE BY 
THE RECEPTION FROM THE PRINTER OF AN ‘'XON’’ CHARACTER AND AN 
ACCEPTABLE PRINTER STATUS WORD. 


UNDERLINE / NO UNDERLINE MODE TEST 
A LINE OF CHARACTERS WILL BE A! tune oe hear te UNDERLINED 
AND THEN NON-UNDERLINED CHARACTERS. THE MODE IS GENERATED BY 


THE "ESC N G'' SEQUENCE WHERE N=0 MEANS THAT UNDERLINE IS 
INHIBITTED AND WHERE N=1 MEANS THAT UNDERLINE IS EMPLOYED. 


SEQ 12 








CZLQPAO LQPSE-F PDP11 DIAG 


oo 


N 1 
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TEST 3 = 


TEST 4 


TEST 5 - 


TEST 6 - 


TEST 7 - 


TEST 8 


TEST 9 


TEST 10 - 


HAMMER HIT COUNT TEST 


FOUR LINES OF TEXT WILL BE Sy ee EACH LINE OF TEXT BEING 
PRINTED WITH A gee HIT COUNT. THE RESULTING + 4 
PATTERN WILL BE FOUR LINES, ONE BLANK LINE (HIT COUNT 

AND THREE LINES OF INCREASING DARKNESS (INCREASING HIT Count). 
THE "‘ESC_N D'’ SEQUENCE IS USED WITH N EQUAL TO AND 
N<O. - N<O he WILL RESULT IN A HIT COUNT OF ZERO, 
N=0 IS A HIT COUNT OF ONE, N=1 IS A HIT COUNT OF TWO AND N=2 
IS A HIT COUNT OF THREE. 


CARRIAGE POSITIONING TEST 


IN THIS TEST, TWO CHARACTERS ARE PRINTED SEPARATED BY A 
@SPACE OF ADJUSTABLE WIDTH. BOTH FORWARD AND REVERSE 
CARRIAGE MOTIONS ARE EXERCISED. THE RANGE OF THE SPACE 
SIZE IS DICTATED BY THE CURRENT PAGE WIDTH. THE SPACE 
SIZE IS ADJUSTED BY SENDING THE ‘‘ESC N ;°" SEQUENCE TO THE 


AND MAY BE POSITIVE (RIGHT MOVEMENT) OR NEGATIVE (LEFT 
MOVEMENT). 


PAPER POSITIONING TEST (VERTICAL) 

THE VERTICAL ea IS ADJUSTED IN THIS TEST BY SENDING 

THE SEQUENCE a: _ N IS PROPORTIONAL 70 THE VERTICAL 
SPACE SIZE. INT His” TEST A LINE OF CHARACTERS WILL BE ot re 
AND A CARRIAGE RETURN = LINE FEED TRANSMITTED. THE VERTICAL 
SPACE SIZE WILL THEN BE ADJUSTED AND THE SEQUENCE WILL BE 
REPEATED. THIS SEQUENCE WILL BE PERFORMED OVER A REASONABLE 
RANGE OF VERTICAL SPACE SIZES. 

PRINT ONE.LINE OF EACH CHARACTER 

ONE LINE OF EACH PRINTABLE CHARACTER WILL BE PRINTED TO 
a THAT ALL POSITIONS ON THE PRINT WHEEL WILL ACTUALLY 
PRINT A SWIRL eoear 


THE COMPLETE CHARACTER SET IS PRINTED ONE LINE AT A TIME 
IN A "’SWIRL PATTERN’’.. 


WORST CASE RAPID MOTION TEST 


THIS TEST WILL PUT THE PRINT WHEEL THROUGH A Bo rrertie » en 
SITUATION BY REPEATEDLY PRINTING THE SEQUENCE ‘‘ACA:ACA:AC. 


PRINT RANDOM CHARACTERS 
THIS TEST WILL PRINT A RANDOM SEQUENCE OF CHARACTERS ON THE 
PRINTER. 


PRINT OPERATOR SELECTED CHARACTERS 


THIS TEST WILL PRINT CHARACTER SEQUENCES DEFINED BY THE 
USER. TWE TEST 1S ENDED BY ENTERRING Q<RETURN>. 


SEQ 13 


ete 


/CZLQPAO 


LOPSE-F PDP11 DIAG 
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TEST 11 = 


TEST 12 = 


TEST 13 - 


B 2 


7 


SEQ 14 


— 7 en 


LIFT / DROP RIBBON 7 pape CONTROL 
(OPTIONAL = SPECIAL TEST) 


THIS TEST WILL HAVE TWO MODES wee Ye ON THE TEST MENU: 
AUTOMATIC MODE AND MANUAL MO THE AUTOMATIC MODE THE 
RIBBON WILL RAISE AND DROP AT A RATE OF ABOUT ONCE PER SECOND. 
THIS SEQUENCE WILL CONTINUE UNTIL THE OPERATOR STOPS IT BY 
ACTION TAKEN AT THE OPERATORS CONSOLE. IN MANUAL MODE THE 
OPERATOR WILL RAISE AND DROP THE RIBBON AT WILL BY PRESSING 
CONSOLE KEYS AS SPECIFIED ON THE CONSOLE SCREEN. 


BIDIRECTIONAL FORMS TRACTOR (OPTIONAL = SPECIAL TEST) 


A VARIABLE SIZE MATRIX OF CHARACTERS WILL BE PRINTED IN A 
RANDOM ORDER, FORCING RANDOM MOVEMENT OF THE CARRIAGE IN ALL 
FOUR DIRECTIONS. 


CUT SHEET FEEDER EXERCISER (OPTIONAL - SPECIAL TEST) 


IN THIS TEST THE PAGE SIZE * SET TO ELEVEN INCHES, A SHEET 
1S FED FROM THE FRONT TRAY, A LINE IS PRINTED AT THE TOP OF 
THE PAGE AND A LINE IS PRINTED AT THE BOTTOM OF THE PAGE. 
iHE PROCESS IS THEN REPEATED WITH THE REAR TRAY FEEDING WHICH 
ee V1 beatae EJECT THE PAGE IN THE PRINTER FROM THE 

N AY. 


‘CZLQPAO LQPSE-F 


jparenan HEADER 


| 


000000 


002000 
002000 


SOON AUEWN —OVOONOUE WN 


MS Ss Ss os 


PDP11 DIAG 


002000 


000001 


000001 


025234 
000000 
000000 
000000 


= 


‘£2 
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SVCINS= 
SVCTST= 


SVCTAG= 


- ENABL 
- ENABL 


-=2000 
gape 


ABS 
AMA 


svc 


LIST INSTRUCTIONS, SHIFTED RIGHT 
LIST TEST TAGS, SHIFTED RIGHT 
LIST SUBTEST TAGS, SHIFTED RIGHT 
LIST GLOBAL TAGS, SHIFTED RIGHT 
LIST OTHER TAGS, SHIFTED RIGHT 


POINTER ERRTBL 


HEADER 


CZLQP,A,0,240.,0,PRI07 


i 


SEQ 15 


INITIALIZE SUPERVISOR MACROS 


LSNAME: : 


LSREV:: 
LSDEPO:: 
LSUNIT::. 
LSTIML:: 
LSHPCP: : 
LSSPCP:: 
LSHPTP:: 
LSSPTP:: 
LSLADP: : 
LSSTA:: 


L$CO:: 


LSDTYP::- 


240. 
LSHARD 
0 

LSHW 
0 
LSLAST 
0 

0 

0 


‘ 


‘CZLQPAO LOPSE-F PDP11 DIAG 


‘PROGRAM HEADER 


| 
| 


VoD DRMNOOe 
SOO &£MWNSCO 


000000 
002124 
000340 
000000 
000000 


003 
003 


000060 
000000 


000000 
010102 
000000 
000000 
000000 
000000 
000000 
000000 
010150 
104035 
010072 
015522 
017456 
017454 
015514 
000000 
000000 
000000 


dD 2 
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-SBTTL DISPATCH TABLE 


LSAPT:: 


LSDTP:: — 
LSPRIO:: 
LSENVI:: 
LSEXP1:: 
LSMREV: : 


LSEF:: 


LS$SPC:: 


LSDEVP:: 
LSREPP: : 
LSEXP4:: 
LSEXPS:: 


LSAUT:: 
L$DUT:: 
LSLUN:: 


LSDESP:: 
LSLOAD:: 


LSETP:: 
LSICP:: 
LSCCP:: 
LSACP: : 
LSPRT:: 


LSTEST:: 


LSDLY:: 


LSHIME:: 


WORD 
. WORD 
. WORD 
« WORD 
«WORD 


« WORD 
«WORD 


«WORD 
«WORD 
. WORD 
«WORD 
- WORD 
. WORD 
. WORD 
- WORD 
- WORD 
EMT 

«WORD 
- WORD 
«WORD 
« WORD 
- WORD 
«WORD 
«WORD 
«WORD 


0 
LSDISPATCH 
PRIO7 

0 

0 
ese 
0 

L$OvTYP 


0 
0 
0 
0 
0 
0 


LSDESC 
ESLOAD 
LSERRTBL 
LSINIT 
LSCLEAN 
LSAUTO 
LSPROT 

0 

0 

0 


SEQ 16 


. — 


E 2 
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‘e SEQ 17 
ISPATCH TABLE 


) 

? 

5 002122 DISPATCH 13 
002122 000015 «WORD 13 
002124 LSDISPATCH:: 
002124 017470 «WORD T1 
002126 017606 «WORD 12 
002130 020026 «WORD 13 
002132 020274 «WORD 14 
002134 020610 «WORD 15 

021014 WORD T6 

002140 021160 WORD 17 
002142 021342 wORD 18 
002144 021470 WORD 19 
002146 021634 WORD T10 
002150 022050 WORD T11 
002152 022462 «WORD 112 

‘ 002154 023360 ~ WORD 113 

7 .SBTTL DEFAULT HARDWARE P-TABLE 


css 


CZLQPAO LOPSE=F PDP11 DIAG 
DEFAULT HARDWARE P=-TABLE 


OONOULSWN— 


, 
| 
002156 
002156 000004 
002160 
002160 
002160 000000 


002166 000001 


002170 
002170 


No et a ss 
lo} ote +] NOU SW —O 


F 2 
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SEQ 18 


+++ 
THE DEFAULT HARDWARE P-TABLE CONTAINS DEFAULT VALUES OF 
THE TEST=DEVICE PARAMETERS. THE STRUCTURE OF THIS TABLE 
1S IDENTICAL TO THE STRUCTURE OF THE HARDWARE P-TABLES, 
AND IS USED AS A ‘TEMPLATE’ FOR BUILDING THE P-TABLES. 


BGNHW DFPTBL 
«WORD L10000-L$HW/2 


LSHW: : 

DFPTBL:: 
-WORD 0O :CSR ADDRESS. IF = 0 THEN AUTO-SETUP MODE IS ASSUMED. 
-WORD 1 :1=""v''. 1/0 OPTION IS SINGLE LINE (NON-DZ11) INTERFACE 
» WORD 0 sPRINTER CHANNEL DEFAULT IS CHANNEL 0. 
«WORD 1 sLINE SIZE CHOICE. 1=80 CHARACTERS/LINE 
ENDHW 


110000: 


-TITLE GLOBAL AREAS 
-SBTTL GLOBAL EQUATES SECTION 


/GLOBAL AREAS 
GLOBAL EQUATES SECTION 


; 
2 002170 


100000 


000001 
001000 


000001 


000040 


000034 


000340 


000000 


000004 
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EQUALS 
DIFINITIONS 
100000 
40000 


nnnnHnHnnnHnhrnnnhnhnhnhuk 
nhnnnnnhnnhnnhnhnnhnnn 
= 
Oo 
Oo 


Ot ss hs bs bs hs bs te Oe Oe os Oe Ot Oe be Ft Os be tO 
4444 St Ht Ht 1 +s 4 44444 HSH St St St st 


OVW UAE N@Wwo 
nhunhnnnnnun 


s+ MDODOIWWOOOIO::- @DWMWVWVIWVIOVIOIOOVIOOOMA:::--- 
nuonnnnnhann 
wow 
ro 
~ 
oO 
= 


ENT FLAG DEFINITIONS 


m 
< 


5  €F32:EF17 RESERVED FOR SUPERVISOR TO PROGRAM COMMUNICATION 


EF .START== ss 
EF .RESTART== 31. 
EF.CONTINUE== 30. 
EF .NEW== 29. 
EF .PWR== 28. 


: PRIORITY LEVEL DEFINITIONS 


PRIO7== 340 

PR106== 300 

PRIO5== 240 

PR104== 200 

PRI03== 140 

PRIO2== 100 

PRIO1== 40 

PRI00== 0 

OPERATOR FLAG BITS 
EVL== 4 


; START COMMAND WAS ISSUED 

; RESTART COMMAND WAS ISSUED 

; CONTINUE COMMAND WAS ISSUED 

; A NEW PASS HAS BEEN STARTED 

7 A POWER-FAIL/POWER-UP OCCURRED 


—— 


| SEQ co 
'GLOBAL AREAS MACRO V03.01 7-WOV-80 10:06:10 PAGE 8-1 
GLOBAL EQUATES SECTION 


000010 LOT== 10 
000020 ADR== 20 
000040 IDU== 40 
000100 I1SR== 100 
000200 YAM== 200 
| 000400 BOE== 400 
001000 PYT== 1000 
2000 PRI== 2000 
004000 1XE== 4000 
010000 1BE== 10000 
020000 IER== 20000 
040000 LOE== 40000 
; 100000 HOE== 100000 
4 
4 ; DECIMAL VALUES 
7 000040 ZERO 232. :MNEMONICS FOR ESCAPE SEQUENCE ARGUMENTS. 
8 000041 ONE #33. 
9 000042 TwO =34, 
10 000043 THREE =35. 
11 000044 FOUR =36. 
12 000045 FIVE =37, 
13 000046 SIX =38. 
14 000047 SEVEN =39. 
15 000050 EIGHT  =40. 
16 000051 NINE =41, 
17 000052 HEXA =42, 
18 000053 HEXB =43, 
19 000054 HEXC =44, 
20 000055 HEXD =45, 
21 000056 HE XE =46. 
$6 000057 HEXF =47, 
24 000001 NUM1 =1 
25 000002 NUM2 =? 
26 000003 NUM3 =3 
27 000004 NUM4 =4 
28 000005 NUM5 =5 
29 000006 NUM6 =6 
30 000007 NUM7 =7 
31 000010 NUM8 =8. 
32 000011 NUM9 =9, 
33 000012 NUM10 =10. 
34 000013 NUM11 = =11. 
35 000014 NUM12 =12. 
36 000015 NUM13  =13. 
37 000016 NUM14 =14, 
38 * 000017 NUM15 =15. 
39 ; 
40 ‘ 
41 
42 - 020000 ECNRB =BIT13 
010000 UCRB =BIT12 
45 
46 


r 


r-— 


‘GLOBAL AREAS 
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GLOBAL EQUATES SECTION 


002000 MXLF 


=2000 


;MAXIMUM LINEFEED SIZE. 


-SBTTL GLOBAL DATA SECTION 





DECIMAL 2048x1/48 INCHES 


SEQ 21 


——----—--—-— 


GLOBAL AREAS 


002170 
002172 
002174 
002176 


002200 


002202 
002204 


002206 


NM] ODO WNAUEWN —“OVDOONOUSWN— 


MONON 3 2 eS SS Sr er 


23 


42 002210 
rh 002212 


4 
45 002214 
17 


51 002233 
52 002240 


002243 
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001200 


000000 


000000 


000000 
000000 


000000 


076 
040 


040 
040 
075 


ta 


; THE GLOBAL DATA se CONTAINS DATA THAT ARE USED 
a IN MORE THAN ONE TEST. . 


SKP14: .WORD 640. :SKIP 14 INCHES MINUS 3 LINES ARGUMENT. 
SKPAG: .WORD 537. “SKIP AG SPACING MINUS 3 LINES ARGUMENT . 
SKP11: .WORD 496. “SKIP 11 INCHES MINUS 3 LINES ARGUMENT 
CRNTSK: .WORD “TEMPORARY SAFE LOCATION FOR CURRENT SKIP SIZE. 
CSRADD: .WORD SADDRESS OF CSR REGISTER 
LOGUNIT: . WORD :LOGICAL UNIT NUMBER 
PLOC: “WORD TADDRESS OF HARDWARE P-TABLE 
GREASE: .WORD 0 WHEN = -1, A GREASED EXIT IS PROVIDED FROM THE 
“CURRENT ROUTINE. 
: ESCAPE SEQUENCE TRANSMISSION TABLE 
: THE FOLLOWING ASSIGNMENTS MAKE UP A TABLE IN THE FOLLOWING FORMAT : 
: THE LABEL 1S USED TO REFERENCE THE DESIRED TABLE ENTRY. THE FIRST 
: BYTE IN EACH TABLE ENTRY IS AN ESCAPE CHARACTER. SOME OF THE TABLE 
: ENTRIES HAVE ONLY ONE ADDITIONAL BYTE. THESE ENTRIES CORRESPOND TO 
: PRINTER TASKS WHICH REQUIRE NO VARIABLE PARAMETERS. THOSE TABLE 
: ENTRIES WITH MORE THAN TWO BYTES CORRESPOND TO PRINTER TASKS WHICH 
: REQUIRE SOME PARAMETER. THE PARAMETERS IN EACH ENTRY MAY BE FROM 
: ONE TO THREE BYTES AND MUST BE MNEMONI ¢ VALUES (SUCH AS THOSE ASSIGNED 
: BY THE CONVRT ROUTINE). TO USE A TABLE ENTRY IN CONJUNCTION WITH THE 
: _ XMIT ROUTINE, THE TABLE ENTRY LABEL IS PLACED IN R1 AND THE NUMBER OF 
: BYTES TO BE TRANSMITTED IS PLACED IN R2. 
STSRES: .ASCII <033>/0/ :2 BYTES. EVOKE STATUS RESPONSE. 
HZTLSP: .ASCII <033>/5/ 2 BYTES. PERFORM HORIZONTAL SPACING 
DUMMYS: .ASCII <G12><033>/>/<033>/( 9/ ;DUMMY SEQUENCE FOR PRINTER INTERFACE 
:RESET SEQUENCE 
RESET: ASCII <033>/6/ +2 BYTES. RESET INTERFACE, SHEET FEEDER 
PRINTER. RECEIVE STA 

RESPONSE AND '‘XON’’ CHARACTER. 
VRTICLS: .ASCII <O33>/  9/ °5 BYTES. ACCUMULATE VERTICAL SPACES. 
HRZTLS: .ASCII <033>/_—:/ :5 BYTES. ACCUMULATE HORIZONTAL SPACES. 
RIBPOS: .ASCII <033>/!=./ :3 BYTES. SET RIBBON POSITON- DOWN. 


SEQ 22 


————__— -__— - a Ce -_ —— 


| 
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\GLOBAL DATA SECTION 


| 


53 

54 002244 033 040 040 
002247 047 101 

55 002251 033 040 050 
0022 102 

23 002255 033 103 

58 002257 033 040 104 

59 002262 033 040 047 
0022 106 

60 0022 033 040 107 

61 002271 033 040 040 
0022 040 110 

62 002276 033 040 040 
002 041 112 

63 

64 

65 002303 033 056 056 
002306 056 104 

rs 1 002310 033 040 101 

68 002315 015 

69 002314 012 

70 

71 


72 002315 033 040 040 


75 002322 042 043 041 


% 002325 042 041 040 
n 002330 042 052 040 
80 
81 
82 
83 
84 
85 
86 
87 
88 002333 045 116 045 
002336 116 045 101 
002341 124 105 123 
002344 124 040 061 
002347 040 055 040 
2352 123 105 114 
002355 106 040 124 
2360 105 123 124 
002363 015 012 000 
89 002366 045 116 045 
002371 101 124 105 
002374 123 124 040 
002377 062 040 055 
002402 040 125 116 
002405 104 105 122 


STCHSZ: 
STLNSZ: 
SLFTST: 


STHTCT: 
STSPS2: 


STULMD: 
STPGSZ: 


SLTPFF: 


SETHTO: 
SETCHO: 


CR: 
LF: 


STATUS: 


PSZA4: 
PS211: 


PS714: 


mde Be Be Oe Oe 


TITLE2: 


ITLE1: 


ASCII 
ASCII 
ASCII 


ASCII 
ASCII 


ASCII 
ASCII 


-ASCII 


ASCII 
ASCII 
-ASCII 
ASCII 


ASCII 


ASCII 
-ASCII 


-ASCII 


<033>/  A/ 
<033>/ (B/ 
<033>/C/ 


<033>/ D/ 
<033>/ 'F/ 


<033>/ G/ 
<033>/—sdHi/ 


<033>/  !J/ 


<033>/...0/ 
<033>/ A/ 
<015> 

<012> 


<033>/ O/ 


Te] 
rn #7 


/''s / 


‘5 BYTE 
74 BYTE 
32 BYTE 


AND SEND 


BYTES 


74 BYTES. 


33 BYTES. 
35 BYTES. 


35 BYTES. 


;SET HIT 


SEG 23 


& ONE EXTRA CHARACTER FOR TEST 11. 
S. SET CHARACTER SIZE. 10 CHR/IN 


S. SET LINE SIZE. 6 LINES/INCH 
S. My A SELF TEST. SEND STATUS 


. SET HIT COUNT TO 1 HIT/CHAR. 
SET SPACE SIZE. 10 SPACES/IN 


SET UNDERLINE MODE TO NO-UND. 
SET PAGE SIZE. 


SELECT TRAY AND PERFORM FF. 
SELECT FRONT TRAY AND EJECT. 
COUNT TO 0 HITS. 5 BYTES. 


;SET SPACE SiZE TO ZERO. 


3:1 BYTE 
31 BYTE 


;STAUS S$ 


;PATTERN: 
:PATTERN: 


SPATTERN: 


ASCII STRING MESSAGES, TEST TITLES 
sASCIZ /%NZNZATEST 1 - SELF TEST/<015><012> sTITLE FOR TEST 1. 


FOR RETURN ONLY. 2 FOR <CRLF>. 
FOR LINEFEED ONLY. 


EQUENCE TEMPLATE. 


TWO THREE ONE IN HEX 

11 INCHES PAGE SIZE TWO ONE 
ZERO IN HEX 

14 INCHES PAGE SIZE 


sASCIZ /%NZATEST 2 = UNDERLINE/<057>/NO-UNDERLINE MODE TEST/<015><012> 


.———___ —--- +--+ -—-----—- - - ------- 


| Saleen 88 
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SEQ 24 


002410 #116 111 116 
002413 105 057 116 
002416 117 055 ~~ 125 
002421 116 104-105 
002606 i122 1144 #111 
002427 116 105 040 
002632 432115 sd112———s«*2:08 
002435 105 040 124 
002440 105 123 124 
002443 015 012 000 
90 > sTITLE FOR TEST 2. 
91 002646 045° 116 045 TITLE3: .ASCIZ /%NZATEST 3 = HAMMER HIT COUNT TEST/<015><012> 
002451 101 124 105 
002454 123 124 040 
002457 063 040 055 
902462 040 110 ~~ 101 
246 115 115.—s«105 
002470 122 040 110 
002473 «111 124 040 
002476 103 117 ~= 125 
002501 116 = 124.040 
002506 124 105 123 
002507 124 O15 ~~ 012 
002512 000 
sTITLE FOR TEST 3. 
93 002513 045 116 045 TITLE4: .ASCIZ /%NXATEST 4 - CARRIAGE POSITIONING TEST/<015><012> 
002516 101 124 105 
002521 123.124 ~=—(040 
002524 064 040 055 
002527 040 103 ~~ 101 
002532 122 «4122 ~2~«111 
002535 =: 101 107 105 
002540 040 120 #117 
002543 = 123—Cti‘«‘*Y*YT'iC‘(“<i<‘=*‘«‘iN 
002546 111 117 «116 
002551 111 116. 107 
002554 040 124 -105 
002557 9 123—s«sd12hti«N'S 
2562 ««012,—St—tié«i 00 
, sTITLE FOR TEST 4. 
95 002564 045 116 045 TITLES: .ASCIZ /XNXATEST 5 - PAPER POSITIONING (VERTICAL) TEST/<015><012> 
002567 ~—«-'101 126 105 
002572 4«123~S(«124~—Sts«iK 
002575 065 040 055 
002600 040 120 ~&# 101 
002603 120 105 122 
002606 040 #120 ~# 117 
002611 1230111 124 
002614 111 117-116 
0026172111 116 107 
002622 040 050 126 
002625 105 122 124 
002630 89111 103 = 101 
002633 43-114. i«iSs«KD 
002636 126 105 123 
002641 126 015 012 





SEQ 25 
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GLOBAL DATA SECTION 


;TITLE FOR TEST 5. 
97-002645 065 116 045 TITLE6: .ASCIZ /%NEATEST 6 = PRINT ONE LINE OF EACH CHARACTER/<015><012> 
002650 101 1246 105 
002653 123 124 040 
002656 = «06H-—s—(iiKti«SS 
002661 040 120 122 
002664 111 116 «© 126 
002667 4 040'isis117?'—t—«*2i4' 
002672 105 040 114 
002675 391112116105 
002700 040 117 ~=—-:106 
002703 040 105 101 
2706 «= 103. —s110—=s«K0 
002711 103 110 101 
002714 122 101 103 
002717 = 1242S 105-—Ss«*1:22 
002722 «015 s12Ss—ti«é00 
; TITLE FOR TEST 6. 
99 002725 045 116 045 TITLE7: .ASCIZ /%NZATEST 7 = PRINT A SWIRL PATTERN/<015><012> 
002730 101 124 105 
002733 «= 123,124 s(K0 
2736 «= 067, s«040Ss«éSS 
002741 040 120 122 
002744 111 116 126 
002747 040101 iis 
002752 123127: = 
002755 122 «114 «= 040 
27 120 «1012124 
002763 124 105 122 
27 116 = 015s 
002771 000 
100 sTITLE FOR TEST 7. 
101 002772 045 116 045 TITLES: .ASCIZ /%NXATEST 8 - WORST CASE RAPID MOTION TEST/<015><012> 
002775 «6101.2 «124—Ss«‘105 
3000 «123124 S40 
. 903003 070» 040055 
- 003006 0460 127 #117 
~ 003011 122 123 124 
003016 040 103 101 
003017 = 123. 10540 
003022 4122 «49101 «4120 «| 
003025 111 104 040 
3030115117‘: 
003033 «111 ia17?'—(it«*i2 
003036 040 1246 105 
003041 123 124 015 
003044 012 000 
sTITLE FOR TEST 8. 
103 003046 045 116 045 TITLE9: .ASCIZ /%NKATEST 9 - PRINT RANDOM CHARACTERS/<015><012> ‘ 
003051 101 126 105 
003054 123 124 040 
003057 9071S «K0Ss«éSS 
00306 060 120 122 
00306 110116124 
003070 040 122 101 
003073 «116 = 104s‘ 
003076 «=s«115.' iK0Ss«*i03 


SEQ 26 
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GLOBAL DATA SECTION 


003101 110 101 122 
003104 101 103 124 
003107 105 122 123 
003112 015 012 000 : 
sTITLE FOR TEST 9. 
105 003115 045 116 045 TITLEA: .ASCIZ /%NZATEST 10 = PRINT OPERATOR SELECTED CHARACTERS/<015><012> 
003120 101 124 105 
003123 123 124 040 
003126 061 060 040 
003131 055 040 120 
003134 122 111 116 
003137 124 040 117 
003142 120 105 122 
003145 101 124 117 
315 122 040 123 
003153 105 114 105 
003156 103 124 105 
003161 104 040 103 
3164 110 101 122 
3167 101 103 124 
3172 105 122 123 
003175 015 012 000 
106 :TITLE FOR TEST 10. 
107 003200 105 116 124 PRMPTA: .ASCIZ /ENTER STRING. Q TO EXIT TEST. END WITH <RETURN>./<015><012> 
003203 105 122 040 
003206 123 124 122 
003211 111 116 107 
003214 056 040 121 
003217 040 124 117 
003222 040 105 130 
003225 111 124 040 
003230 124 105 123 
003233 124 056 040 
32 040 105 116 
003241 104 040 127 
003244 111 124 110 
003247 040 074 122 
003252 105 124 125 
003255 122 116 076 
003260 056 015 012 
003263 000 
108 sPROMPT FOR TEST 10. 
109 003264 045 116 045 TITLEB: .ASCIZ /%NZATEST 11 - LIFT/<57>/DROP RIBBON BY OPERATOR CONTROL/<015><012> 
003267 101 124 105 
003272 123 124 040 
003275 061 061 040 
003300 055 040 114 
003303 111 106 124 
003306. 057 104 122 
003311 117 120 040 
003314 122 111 102 
003317 102 117 116 
pease 040 102 131 
00332 040 117 120 
003330 105 122 101 
00333 124 117 122 
003336 040 103 117 


SEQ 27 


| 
| 


MACRO VO3.01 7-NOV-80 10:06:10 PAGE 9-5 


GLOBAL DATA SECTION 


GLOBAL AREAS 


TITLE FOR TEST 11. 


~ 
4 
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@ 
wo 
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«= 
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ive) 
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ww w oOo A _ 
_ _- v in? ™N uw z 
Oo Oo A _ = w 
Vv Vv wn oO — = 
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a v A =x 
« Oo ~ 2 YL <= 
Oo = w a < 
a => uw [= 4 
4 v oO = oO 
4 = ws - “_ 
- ~~ a ws 
w <x =) v oa ws 
ut = = oO aw 
oO oO | = = mee 
-— z _— -<« 
w D> =< _ ai oa 
n” c-¢ = 3 <= v 
oO = | Aa 
oOo J ' Oo pa NS 
= 4 << — = 
Y < @ uw = os 
> om ~ aa a v™ 
_ _ _ ™~s _ —e 
a cot co oa — ae 
7 w~ — wo wow ww 
”~ ” nn ive] w mwm 
<x <= <= <x <= <z<< 
. oe > . . 
wow 
- - 
= = 
a « 
o a 
RMNOORN NMOMNR OWN Nee NN TRKHONnNWN OTR WK ONTONNOK MON TUM OO 
KOese—O NN Ke KO NOOO CK TONK KKK ROT RK NVNTIONIMNY TOre -NNOW 
wren Oerre Oerwrnrnr— OCOnmnrnrmrm KK Oer kr OO ewer Or Ore Oe eK Onrnr KK Orr ern CO 


OM NVOONOKR wOTNONNOTNOR ONNOOK— KNNNOK-ONANONKOFONN NK OK ON 
KN RKR FI MK FORK NTO MK IT RK NICO K MK NK NNR COOK OOK RK TONNR OK RK NK NO cerry 
mee -OCOCCOCR— RK KOK OOer KOK Onm mere COP em K KKK Cer Oren Kor KK— OF oro 


MONK NN KOK MRNWNOOFR NNO TT ONMNNOTOM TNO TIT OMOOT TON OWN ¥ OK Ne 
On- JOON K OFNOSGRK KOT RR RK KOT NR Ne RK RK NTFOST ONO KR NRK RK TI INUNTIORK MK NK OOF 


, 


HH NUNIT TF TMNMNOOOP- RROD SK KH NNNMIM ST TN oorrk ek. 
MVM MPM MMM TJ TF TTT TTT TT SPSS SST TTT NMNNMNNNNAMNNMNKANMAMNMAMNNAMOWN 
SSSSSSSSSSSSSSSSSSSSSSSESSSSSSSSSSSSSSSSSSSSSSSSSSSSSS 
~N al ~w w or 
- - - - ror 
- - - = er 


— aie ees = = ‘i nme ds 
C 3 

| SEQ 28 

GLOBAL AREAS MACRO V03.01 7-NOV-80 10:06:10 PAGE 9-6 

GLOBAL DATA SECTION 


ASCII <012><015> 
-ASCII /A ''Q'' FOLLOWED BY PRESSING THE <RETURN> KEY./<012><015> 


—~ 
~~ 
oo 
PO SMU FS OOOn— 
OS Os Ss Ss Ss 1 OOO 9 | OP SS SS OO 
WM 9 NP ONMNWO 2 SM FF HK HS MNONONN - & 
AWOH & SF ONWWDN S FNNVOVING SUS US SUNO 
o-oo | 0] | 00-00 oC-0-0--—-0-"— 


—ONNNOF HOLL SMH FHF SMHS NEW Vio 
MUAUIMUNO —"NOONFONM COLOWOONAUM 


;PROMPTS FOR TEST 11 
045 TITLEC: .ASCIZ /XNXATEST 12 - BIDIRECTIONAL FORMS TRACTOR/<012><015> 


EMF ASNMNM "NANOS S$—WENMOLMW—WNOCO—"ODN0 “CONN $ £ FO 


SOHLOOCONMNUONOFL ——oO —_ 
=NO FOUWUIMW IN ONO FMS NAS WAS OF ONO SF OwWwWOnu' 


=nMmnrmn— 330-0 
MLEMYWUNS NWP oul 


SONIWE UO SUF ONnf &O 
on to Ss 


;TITLE FOR TEST 12, 
045 TITLED: .ASCIZ /%NXATEST 13 - CUT SHEET FEEDER EXERCISOR/<012><015> 


Ww 
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ee etd ot ot ot ot OOO one 1 OO" Ss 
WMRUUINE CO FOWE O&O 


= 
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| 
GLOBAL AREAS 


GLOBAL DATA SECTION 


004042 
004045 
| 124 
125 004046 


128 say 3k] 


131 
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122 
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—Co00--000 o--So--S 
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=O Foe aQro 
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MM ON FODONOSO LONWNGOO 
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RUA @ WUIWW FE OUND SUI NINE NOS 


—9O-Ononr-o-— 


MACRO V03.01 7-NOV-80 10:06:10 PAGE 9-7 


PRMPTD: .ASCII 


-ASCI1 
-ASCII 


-ASCII 


ASCII 
-ASCI1 


ASCII 


;TITLE FOR TEST 13. 
/SPECIAL TEST: CUT PAGE SHEET FEEDER MUST BE INSTALLED./<12><15> 


<12><15> 
/WHAT IS THE PAGE LENGTH? ENTER A, B, OR C./<012><015> 


/DEFAULT SIZE IS 11 INCHES./<012><015> 


<012><015> 
JA =-11 INCHES/<012><015> 


/B -14 INCHES/<012><015> 


SEQ 29 


‘GLOBAL AREAS MACRO V03.01 7=NOV-80 10:06:10 PAGE 9-8 
{GLOBAL DATA SECTION 


004303 


004306 
132 sok HH eASCIZ /C =AG (EUROPEAN STANDARD) /<012><015> 


onr=>— 


4 
133 004346 TIIPMT: .ASCII /SPECIAL TEST:/<12><15> 


134 004365 «ASCII -/THIS TEST IS FOR PRINTERS WITH THE BIDIRECTIONAL FORMS / 


So 
o 
= 
Ww 
Ww 
o 
ow os OS SS SO Ot SS SS SS 1 OO - 


oS 
So 
ea 
S 
= 
_ 
BARS MFO FLOM OP S$ WOOMWO O90 | “OUINO-2-ONO 


135 004454 -ASCII /TRACTOR ONLY./<12><15> 


136 004473 


-ASCIZ /ENTER <RETURN> TO CONTINUE.../ 


004512 


Wrrmn— 


San SF2aUNSa 


137 NPRMPT: .ASCI] /ENTER ‘'<RETURN>'’ TO LIFT THE RIBBON FOR A MOMENT./<12><15> 


o 
DONMINMON WV NOOO WON FN & HNN 0 FH MNMNN & LSONUNNO ON "CON SVN LEMUONO 


fSrmof ~m 
POM MANIMUIA NEW & FNMA ANVW SF ONOG FNM NOS" WE MNOOCVYVIW SMU FWWUTE F&F COOMUOVNWW 
MOM) BOOW@ @ EMO SN AW Ss BM OO OM OM OO MO BM ONIN ON MK NNN HH MH NRNOO SM WO-O0 fo 


o--0—- Oo] | On 2 O -" O -" = — et OO = OO SS SO -" O - Om | OO | OS" | O |" OO 
PONIRD @ WO = Ss NOP NY SM SH SNM HOOK OO SNN SOM FOAM N FHM OHNE KH NOMOO LON! 

mow 

FOUMO LFOASASCONW UNIO ££ NN UNS NW NOOO NNAONWE ESPs eeu MNMNIAWe NUS OWW! 


_—OoO——-0 $00 | O00 - o-oo" a a a a ot = ot = ot ot I OO SS oe Ss 1 OOTDOO— 


a 

= 

“S 

So 
om Oo 2 Oo Oo 1" 0 Ot oS oS " O -" OO OO oe "OO oe es 
OP & LNVOOM A NNAOUVINNMANMLOSM 


| 
| 
| 
| 
| 
| 
| 


SEQ 30 


ERs 


| SEQ 31 
GLOBAL AREAS MACRO V03.01 7-NOV-80 10:06:10 PAGE 9-9 Gl 
GLOBAL DATA SECTION Gl 


eASCIZ /ENTER ‘'Q<RETURN>'’ TO EXIT TEST./ 

116 

040 

040 

111 

FTYTPM: .ASCII /THIS SHOULD BE PRINTED AT THE TOP OF THE PAGE./<i2><15> 

| 
| 
| 


So 
oOo 
= 
uw 
o 
~N 


138 004614 
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F 


139 004654 
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0047 
140 sate 124 -ASCII /THE PAGE SHOULD HAVE COME FROM THE FRONT TRAY./<12><15> 


AWS F&F NOS NNO OCOO & $1  OOVUIW | ES 
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RTYTPM: .ASCII /THIS SHOULD BE PRINTED AT THE TOP OF THE PAGE./<12><15> 
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so _ 
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- 


SEQ 32 
/GLOBAL AREAS MACRO V03.01 7-NOV-80 10:06:10 PAGE 9-10 
(GLOBAL DATA SECTION 


005025 114 104 040 
005030 102 105 040 
| 005033 120 122 111 
| 005036 = 116s 124 105 
005041 104 040 101 
| 005044 124 040 126 
005047 110 105 040 
005052 124 117 120 
005055 040 117 106 
005060 040 124 110 
5063 105 040 120 
005066 101 107 105 
005071 056 012 015 
142 005074 124 110 105 ASCII /THE PAGE SHOULD HAVE COME FROM THE REAR TRAY. /<12><15> 
005077 040 120 101 
005102 107 105 040 
005105 123 110 117 
005110 125 114 104 
005113 040 110 101 
005116 126 105 040 
005121 103 117 115 
005124 105 040 106 
005127 122 117 115 
005132 040 124 110 
005135 105 040 122 
005140 105 101 122 
005143 040 124 122 
005146 101 131 056 
005151 040 012 015 : 
143 005154 045 116 045 WITSTPM: .ASCIZ /%NXAWAITING TO SEND DATA TO PRINTER. PRINTER NOT READY.2/ 
005157 101 127 101 
005162 111 124 111 
005165 116 107 040 
005170 124 117 040 
005173 123 105 116 
005176 104 040 104 
00520 101 124 101 
00520 040 124 117 
005207 040 120 122 
00521 111 116 124 
005215 105 122 056 
005220 040 120 122 
005223 111 116 124 
005226 105 122 040 
005231 116 117 124 
5234 040 122 105 
5237 101 104 131 
005242 056 045 000 
144 
145 
* 146 .EVEN 
148 005246 000000 MSGADD: .WORD :HOLDS ADDRESS OF A MESSAGE 
149 005250 000000 TRXADD: .WORD 
150 005252 000000 BAUDRT: .WORD 
151 005254 176500 DLDFLT: .WORD 176500 :DEFAULT CSR ADDRESS - SINGLE LINE 
152 005256 176010 DZDFLT: .WORD 176010 ‘DEFAULT CSR ADDRESS - MULTILINE. 


SEQ 33 
GLOBAL AREAS MACRO V03.01 7-NOV-80 10:06:10 PAGE 9-11 
GLOBAL DATA SECTION 


158 005260 000000 DFAIL: .WORD C 
155 005262 900000 000000 000101 BASET: .WORD 0,0,101 ; TABLE ENTRY = 3 WORDS, INCLUDES THE 
156 005270 000000 000036 000102 “WORD 0,30.,102 :ROW #, THE COLUMN #, THE ASCII 
157 005276 000000 000074 000103 WORD 0,60.,103 ‘VALUE AND THE ACCESS INDICATOR. 
158 005304 0 000132 000104 WORD 0,90.,104 “THE ROW NUMBER AND THE COLUMN NUMBER 
159 005312 000000 000170 000105 WORD 0,120.,105 ;ARE WORDS AND THE ASCII VALUE AND 
160 005320 000226 000106 WORD 0,150.,106 ;ACCESS INDICATOR ARE BYTES. THE 

| 161 005326 000000 000264 000107 WORD 0,180.,107 “FORMAT IS AS FOLLOWS: 
162 005334 000322 000110 WORD 0,210.,110 : 

| 163 005342 000000 000360 000111 WORD 0.240..111 Re 
164 005350 000416 000112 WORD 0,270.,112 : ROW # - VRICLS - LO BYTE 0 
165 005356 000014 000000 000102 WORD 12.,0,102 S eecewcennne ence eccnsescoscee cose 
166 000014 000036 000103 WORD 12.,30.,103 : ROW # - VRTCLS - HI BYTE 1 
167 005372 000074 000104 WORD 12..60..104 i eeewenecneneenoecneceseeesoeeocone 
168 005200 000132 000105 WORD 12..90..105 * COLUMN # - HRZTLS - LO BYTE 2 
169 005406 000014 000170 000106 WORD 12..120.,106 J eceenecewececceeneceeceecoosocoe= 
170 005414 14 000226 000107 WORD 12.,150.,107 : COLUMN # - HRZTLS - HI BYTE 3 
171 005422 00 000264 000110 WORD 12..180..110 | eecerecenennnsceeeecnsnsesce recone 
173 005436 000360 000112 WORD 12..260..112 —«—_—s— Parwwwemnwcnswnnweceesenenennensese= 
174 005444 000416 000113 WORD West! Oscalle ; ASCII BYTE FOR PRINTING 5 
175 005452 000030 000000 000103 WORD 724..0,103 bee e ewe enn nnn n enn e neon neon eee --ee 
176 005460 000036 000104 WORD 24..30.,104 : 
177 005466 000030 000074 000105 WORD 24..60..105 : 
178 005474 000030 000132 000106 WORD 24..90..106 ‘(THE NUMBER TO THE RIGHT IN THE ABOVE 
179 005502 30 000170 107 WORD 24.,120.,107 : FIGURE IS THE BYTE OFFSET FROM THE 
180 005510 000030 000226 000110 WORD 24..150..110 : TABLE ENTRY ADDRESS.) 
181 005516 000030 000264 000111 WORD 24..180.,111 ; 
182 005524 000030 000322 000112 WORD 24..210.,112 : 
183 005532 000030 000360 000113 WORD 24..240..113 : 
184 005540 000030 000416 000114 WORD 24.,270.,114 : 
185 005546 000044 000000 000104 WORD 36..0,104 : 
186 005554 000044 000036 000105 WORD %36.,30.,105 ; 
187 005562 000044 000074 000106 WORD %36.,60..106 
188 005570 000044 000132 000107 WORD 36..90..107 
189 005576 000044 000170 000110 WORD 36..120.,110 
190 005604 000044 000226 000111 WORD %36..150.,111 
191 005612 000044 000264 000112 WORD %36..180..112 
192 005620 000044 000322 000113 WORD 36.,210.,113 
193 005626 000044 000360 000114 WORD 36.,240.,114 
194 005634 000044 416 000115 WORD 36.,270.,115 
195 005 000060 00 000105 WORD 48..0,105 
196 005650 000060 36 000106 WORD 48..30.,106 
197 005656 000060 000074 000107 WORD 48..60.,107 
198 005 000060 000132 000110 WORD 48..90..110 
199 005672 000060 000170 000111 WORD 48..120.,111 
200 005700 000060 000226 000112 WORD 48..150..112 
201 005706 000060 000264 000113 WORD 48..180..113 
202 005714 000060 000322 000114 WORD 48..210..114 
203 005722 000060 000360 000115 WORD 48..240.,115 
204 005730 900060 000416 000116 WORD 48.,270.,116 
205 005736 000074 000106 WORD 60..0,106 
206 005744 000074 000107 WORD 60..30.,107 
207 005752 000074 000074 000110 WORD 60..60..110 
208 005760 000074 000132 000111 WORD 60..90..111 
209 005766 000074 000170 000112 WORD 60..120.,112 


——— 


‘GLOBAL AREAS 
GLOBAL DATA SECTION 


210 Sens 


MIPIPIMININPINININPID 2 2 PO? OO ew 
33 
So 


MEWN SO OODNAUEWN “OO ONOUES WN — 


ssssssssesssees 
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POPORY 2 2 


237 


254 006404 
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000074 000226 000113 WORD 60.,150.,113 
000074 000264 000114 WORD 60.,180.,114 
000074 000322 000115 WORD 60.,210.,115 
000074 000360 000116 WORD 60.,240.,116 
000074 000416 000117 WORD 60..270.,117 
000110 000000 000107 WORD 72..0,107 
000110 000036 000110 WORD 72.,30.,110 
000110 000074 000111 WORD 72..60..111 
000110 000132 000112 WORD 72..90..112 
000110 000170 000113 WORD 72..120.,113 
000110 000226 000114 WORD 72..150.,114 
000110 000264 000115 WORD 72.,180.,115 
000110 000322 000116 WORD 72..210.,116 
000110 000360 000117 WORD 72.,240.,117 
000110 000416 000120 WORD 72.,270.,120 
000124 000 000110 WORD 84..0,110 
000124 36 000111 WORD 84..30.,111 
000124 000074 000112 WORD 84..60..112 
000124 000132 000113 WORD 84..90..113 
000124 000170 000114 WORD 84..120.,114 
000124 000226 000115 WORD 84..150..115 
000124 000264 000116 WORD 84..180..116 
000124 000322 000117 WORD 84..210..117 
000124 000360 000120 WORD 84.,240..120 
000124 000416 000121 WORD 84..270.,121 
000140 000000 000111 WORD 96..0,111 
000140 0000 900112 WORD 96..30.,112 
000140 000074 00011 WORD 96..60..113 
000140 000132 000114 WORD 96..90..114 
000140 000170 000115 WORD 96..120.,115 
000140 000226 000116 WORD 96.,150..116 
000140 000264 000117 WORD 96..180..117 
000140 000322 000120 WORD 96.,210.,120 
000140 000360 000121 WORD 96..240.,121 
000140 000416 000122 WORD 96..270.,122 
000154 000000 000112 WORD 108.,0,112 
000154 000036 000113 WORD 108..30.,113 
000154 000074 000114 WORD 108..60..114 
000154 000132 000115 WORD 108..90..115 
000154 000170 000116 WORD 108..120.,116 
000154 000226 000117 WORD 108..150..117 
000154 000264 000120 WORD 108.,180..120 peeeeee nono 2-2-2 --------------- 
000154 000322 000121 WORD 108..210..121 : 
000154 000360 000122 WORD 108..240.,122 : i 
000154 000416 000123 WORD 108..270..123 : 


FRONT: .BYTE  ZERO,ZERO,ONE ; ARGUMENTS FOR SELECT FRONT TRAY. TEST #13: 


040 040 041 
040 040 042 REAR: BYTE ZERO.ZERO.TWO : ARGUMENTS FOR SELECT REAR TRAY. TEST #13! 
057 057 057 NULL: “BYTE HEXF “HEXF |HEXF” ; ARGUMENTS FOR SELECT NULL TRAY. TEST #13! 

002416 SEED1: .WORD 1294. :SEED FOR RANDOM NUMBER GENERATOR 

013020 SEED2: .WORD 5648. ‘SEED FOR RANDOM NUMBER GENERATOR 

s TEMPLATES 
170377 TMPLT1: .WORD 170377 :BITS 8 - 11 USED IN DECODING PRINTER TRANSMISSIONS 


SEQ 34 


J 3 


‘GLOBAL AREAS maces v03.01 7-NOV-80 10:06:10 PAGE 9-13 
‘GLOBAL DATA SECTION 


SEQ 35 


267 006432 177417 TMPLT2: .WORD 177417 ;BITS 4 = 7 USED IN CONVRT TO DECODE PRINTER XMISSIONS 

gee 006434 177760 TMPLT3: .WORD 177760 ;BITS 0 - 3 

270 

271 006436 000000 TCRENA: .WORD sWILL CONTAIN TCR ARGUMENT - gl sevect 

272 006440 000000 JUNKPL: WORD sWILL CONTAIN NOTHING IF DZ CHOSEN. 

si? :CONTAIN JUNK IF DL CHOSEN. SEE SEncHne ROUT INE 

275 006442 017070 LPRINI: .WORD 017070 LPR INITIALIZE REGISTER. 

276 : THE FOLLOWING STATUS IS ASSUMED: 

277 : 1)RX=ON 

278 s >) 9600 BAUD 

279 : 3)NO PARITY 

280 : 4)2 UNIT STOP COD 

se) : 5)8 BIT CHARACTER LENGTH 

283 006444 000001 TCRTBL: .WORD 1 TABLE OF BIT POSITIONS USED TO SET UP THE 

284 006446 000002 «WORD 2 TCR REGISTER FOR THE APPROPRIATE CHANNEL. 

285 006450 000004 -WORD 4 

286 006452 000010 -WORD 8. 

287 006454 000020 -WORD 16. 

2 456 000040 -WORD 32. 

289 006460 000100 -WORD 64. 

290 62 000200 -WORD 128. 

$93 

293 006464 002400 BAUTBL: .WORD 1280. TABLE OF MASKS TO USE IN SETTING THE BAUD 

294 006466 002600 «WORD 1408. sRATE FOR THE PRINTER IN THE LPR REGISTER. 
003000 WORD 1536. 

296 006472 005000 WORD 2560. 

297 006474 006000 «WORD 3072. 

298 006476 007000 -WORD 3584. 

299 

301 : 

302 006500 000000 ERWORD: .WORD 0 CONTAINS VARIOUS ERROR FLAGS 

303 006502 000000 CRNTPR: .WORD 0 [CONTAINS THE COUNT OF CHARACTERS ALREADY PRINTED 

oe 20M THE CURRENT LINE IN THE BIDIRECTIONAL PRINTING 

ae 006504 000000 DIRCTN: .WORD 0 sCURRENT PRINTING DIRECTION. O=FORWARD, 1=REVERSE 

308 006506 000000 OUTCTR: .WORD s COUNTERS see IN WAITXN 

309 006510 000000 OUTSDC: .WORD D GETCHR TO WAIT OUT THE PRINTER OPERATIONS. 

gi? 006512 000000 FLTRDY: .WORD S INDICATES. FAILURE TG FIND TRANSMIT READY CONDITION. 

312 

a : SPECIAL CHARACTER DEFINITIONS 

315 006514 BR2: .BYTE ; TEMPORARY STORAGE FOR A BYTE VALUE. TEST #13 

316 006515 004 EOT: .BYTE 004 ASCII “EOT" 

317 006516 030 CAN: -BYTE 030 sASCII * “ 

318 006517 023 XOFF:  .BYTE 023 sASCII ‘'XOFF aoe 

319 006520 021 XON: BYTE 021 ;OCTAL 021 = ASCII ‘'XON' 

$30 006521 033 ESCM: BYTE 033 SOCTAL 033 = ASCII “ESC 

322 006522 000000 SNGCHR: .WORD 3 ray FOR A op lNete CHARACTER 

323 006524 032 CTL2: .BYTE 032 CTAL 032 = ASCII ‘*2 
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SEQ 36 


324 006525 121 SCQ: ASCII /Q/ ;SINGLE CHARACTER ‘'0"° 
325 00652 103 SCC: ASCII /C/ :SINGLE CHARACTER ‘'C"' 
326 006507 102 SCB: ASCII /B/ :SINGLE CHARACTER ‘3B’ 
327 006530 130 SCX: ASCII /X/ SINGLE CHARACTER ''X"' 
328 006531 101 SCA: ASCII /A/ SINGLE CHARACTER ‘‘A’’ 
329 006532 060 SCO ASCII /0/ SINGLE CHARACTER ‘'0"' 
330 006533 061 SC1: ASCII /1/ SINGLE CHARACTER ‘‘1'° 
331 006534 056 PERIOD: .ASCII /./ SINGLE CHARACTER ''."' 
332 006535 101 103 101 ACAS: ASCII /ACA:/ [WORST CASE SEQUENCE FOR TEST #8 
-_ 006540 072 
334 006541 040 SPACE: ASCII / / ;SINGLE SPACE 
335 006542 137 13 137 DASHES: .ASCII /____..___- /<15> :PRINTED IN TEST 5 BETWEEN LINEFEEDS 
545 137 137 137 
006550 137 137 137 
006553 137 015 
336 
! 
339 : THE REPEATING PATTERN OF ASCII PRINTABLE CHARACTERS. 
341 -ENABL LC 
342 006555 041 042 043 CHRLST: ASCII /!"'#$%8' ()*+,-./<57>/0123456789: ; <=>? @ABCDEF GHI JKLMNOPORS TUVWXYZ/ 
006560 044 045 046 


006577 063 064 065 
006602 066 067 070 
006605 071 072 073 
006610 074 075 076 
006613 077 100 101 
006616 102 103 104 
006621 105 106 107 
006624 110 111 112 
006627 113 114 115 
006632 116 117 120 
006635 121 122 123 
006640 124 125 126 
006643 127 130 131 
006646 132 ; 
343 006647 133 134 135 eASCII /C\)*_/<140>/abcdefghijklmnopaqrstuvwxyz/ 
006652 136 137 140 
006655 141 142 143 
006660 144 145 146 
006663 147 150 151 
006666 152 153 154 
006671 155 156 157 
006674 160 161 162 
006677 163 164 165 
006702 166 167 170 
006705 171 172 ; 
BDY) psoth He 174 175 BYTE 173,174,175,176 
345 00671 041 042 043 eASCII /!°#S28" CD24, -./<57>/0123456789/ 
006716 044 045 046 _ 


pened decenionreneeaerereseh ciara 


SEQ 37 
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006721 047 050 ~»=«051 
052 4«058——ttié«i 
055 056 ~—s057 
060 ~—061 062 
063 43 064—Ci(C(‘«‘«i 
066 067070 
072 073 074 ASCII /:3<=>7Q@ABCDEF GHIJKLMNOPQRSTUVWXYZC\]*_/<140>/abcde fghi jkimnopaqrstuv/ 
075 43 076~—Sté«C7? 
100 =: 101 102 
103 104~—Ss«2120 
106 107 ~=—-:110 
111 12.113 
1462-115 116 
117 «-120—~St:«*221 
122 133 © 126 
125. 126——«417 
130-131 132 
133 134.—COt—t«*2285S 
13% «= «137,——«140 
141 142 143 
144 145 146 
147 150 151 
162 153 156 
155 430 156—ts«O2857 
160 ~—s«161 162 
163164 ti(‘«é«i0S 
166 
i 170 171 ASCII /wxyz/ 
173 17% 175 [BYTE 173,174,175, 176 


041 042 043 eASCII /!°'#S48" (e+, -./<57>/0123456789: ; <=>? GABCEDF GHI JKLMNOPQRSTU/ 


074 075 076 

077 100 101 

102 103 105 

104 106 107 

110 111 112 

113 114 115 

116 117 120 

121 122 123 

124 125 = 
126 127 130 eASCII /WWXYZE\)*_/<140>/abcdefghi jkimnopqrstuvwxyz/ 
131 132 133 

134 135 136 

137 140 141 

142 143 144 

145 146 147 

150 151 152 





— a . ; 7 ee ' : 
SEQ 38 
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GLOBAL DATA SECTION , | 


007163 153 154 155 
007166 156 157 160 
007171 161 162 163 
007174 164 165 166 
007177 167 170 171 | 
007202 172 | 
351 .DSABL LC 
e 
354 007203 124 110 111 FBTM: ASCII /THIS MESSAGE SHOULD BE PRINTED AT THE BOTTOM OF THE PAGE./<15> | 
007206 123 040 115 
007211 105 123 123 
007214 101 107 105 
007217 040 123 110 
007222 117 125 114 | 
007225 104 040 102 
007230 105 040 120 
007233 122 11 116 
72 124 105 104 : 
007241 040 101 124 | 
007244 040 124 110 | 
007247 105 040 102 
007252 117 124 124 
00725 117 115 040 | 
007260 117 106 040 | 
007263 124 110 105 
007266 040 120 101 | 
007271 107 105 056 
007274 015 | 
355 | 
356 : 
557 : 
358 : VARIABLE ASSIGNMENTS 
4 .EVEN | 
362 ; THE FOLLOWING LABELS ARE USED WITH THE INTERFACE OPTION WHICH THE 
365 : LOPSE IS CONNECTED TO. 
365 007276 000000 RCSR: WORD ADDRESS OF THE RECEIVER CSR REGISTER 
366 007300 000000 XCSR:  .WORD ADDRESS OF THE TRANSMITTER CSR REGISTER 
367 007302 000000 RBUF: WORD ADDRESS OF THE RECEIVER BUFFER | 
368 007304 000000 XBUF: WORD TADDRESS OF THE TRANSMITTER BUFFER 
007306 000000 LPR:  . WORD ADDRESS OF THE LINE PARAMETER REGISTER (D211) 
370 007310 000000 TCR: WORD ADDRESS OF THE TRANSMITTER CONTROL REGISTER (D211) | 
371 007312 000000 TOR: WORD “ADDRESS OF THE TRANSMITTER DATA REGISTER (D211) 
32 007314 000000 PGMCTR: .WORD ADDRESS ¢ 4 WHERE THE LAST TRANSMISSION CALL OCCURRED. | 
374 | 
| 
376 007316 010361 ERMSGB: .WORD DFMO TABLE OF ERROR MESSAGE ADDRESSES USED IN 
77 007320 010422 “WORD EDFA | 
78 007322 010475 WORD EDFM2 
79 007324 010543 WORD EDFR3 
0075 010622 WORD EDFMG 
1 007330 010650 WORD EDFMS THE ERRORS ROUTINE. 
382 007332 010677 WORD EDFM6 
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GLOBAL AREAS MACRO V03.01 7-NOV-80 10:06:10 PAGE 9-17 
GLOBAL DATA SECTION 


383 007334 010755 .WORD EDFM7 
384 007336 011026 “WORD EDFM8 
385 007340 011175 “WORD EDFM9 
386 007342 011230 WORD EDFMA 
387 007344 011331 “WORD EDFMB 
388 007346 011444 “WORD EDF MC 
389 007350 011520 “WORD EDF MD 
390. 
391 
392 
393 
396 - 
396 007352 BFRA: .BLKB 300. | ;BUFFER FOR INPUT FROM USER AND ALSO USED AS A 
97 Ct ‘SOFTWARE STACK. 
398 010026 000000 TOPSTK: .WORD ‘USED TO POINT TO THE TOP OF THE SOFTWARE STACK 
99 [WHEN NEEDED. #BFRA + 1 
400 010030 000000 BFRB: .WORD :DEFAULT AREAS FOR GMANID QUESTIONS. MAY BE CLEARED. 
401 010032 000000 , BFRC:  .WORD ; 
402 010034 000000 BFRD: WORD : . 
404 010036 000000 SPCSIZ: .WORD : THE NUMBER OF HORIZONTAL INCREMENTS PER SPACE. 
406 010040 000000 LINN: WORD : THE NUMBER OF HORIZONTAL INCREMENTS PER LINE. 
408 010042 000000 LINSIZ: .WORD :THE NUMBER OF CHARACTERS PER LINE ON PRINTER. 
410 010044 000000 TRDYBT: .WORD s TRANSMIT READY BIT POSITION. VALUE IS SET DYNAMICALLY 
411 [IN THE INITIALIZATION CODE SO THAT BOTH SINGLE LINE 
aig ' S INTERFACES AND DZ11 INTERFACES MAY BE USED 
414 
415 SUSED IN PROCEDURE CONVRT: 
416 010046 000 MNEB1: .BYTE SUSED TO PASS A MNEMONIC VALUE FROM THE CONVERSION 
417 010047 000 MNEB2: .BYTE ‘ROUTINE. A SINGLE WORD VALUE ACCEPTED THREE BYTES 
418 010050 000 MNEB3: .BYTE SRETURNED TO CALLER: MNEB1, MNEB2, MNEBS. 
420 EVEN 
a3 010052 000000 MLTLIN: .WORD s INDICATOR: MULTILINE INTERFACE?-1 SINGLE LINE?-0 
424 : 
425 010054 000000 DELCNT: .WORD SCOUNTER OF SMALL TIME INCREMENTS USED IN DELAY ROUTINE 
427 010056 000000 NDATA: .WORD 0 :NO DEVICE AT THAT ADDRESS INDICATOR. UNIBUS FAILURE 
428 :TO FIND A DEVICE AT THE REFERENCED ADDRESS CAUSES A 


iTRA a OCCUR WHICH IN TURN WILL SET THE NDATA WORD 


430 :10 0 
431 010060 000 HITARG: .BYTE ; TEMPORARY STORAGE OF THE HIT COUNT ARGUMENT USED IN 
432 ;SET HIT COUNT TEST. 


435 
‘= 010062 000000 LINCNT: .WO 7A LINE COUNTER USED IN TEST #5. PAPER POSITIONING TEST 
ty 010064 000000 CHRCNT: .WORD ;A CHARACTER COUNTER USED IN TEST #6, WHERE ONE LINE OF 


SEACH CHARACTER IS PRINTED. 
rt 010066 000000 CCOUNT: .WORD »A COUNT OF CYCLES, USED IN TEST #1i- LIFT/DROP RIBBON 


SEG 39 


GLOBAL AREAS MACRO V03.01 7-NOV-80 10:06:10 PAGE 9-18 


ene DATA SECTION 
i 440 010070 000000 


446 
447 


INUPB: 


ERRTBL 


ERRTYP:: 
ERRNBR:: 
ERRMSG:: 
ERRBLK:: 


~ SBTTL 


. WORD ;AN INDICATOR OF WHETHER THE PRINTER RIBBON IS IN Me 
: LOCAL PROC. MANLD 


[UP OR DOWN POSITION. TEST #11, 


-WORD 0 
-WORD 0 
-WORD 0 
WORD 0 


GLOBAL TEXT SECTION 


LSERRTBL:: 


SEQ 40 


a ~ ge | 


. ss. 
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GLOBAL TEXT SECTION 


SEQ 41 


1 
2 it 
3 ; THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS, 
4 ; MESSAGES, AND ASCII INFORMATION THAT ARE USED IN 
: ; MORE THAN ONE TEST. 
4 
> ; NAMES OF DEVICES SUPPORTED BY PROGRAM 
11 010102 DEVTYP <LQPSE-F SERIAL LETTER QUALITY PRINTER> 
010102 LSDVTYP:: 
010102 114 121 120 eASCIZ /LOQPSE-F SERIAL LETT 
010105 123 105 055 
010110 106 040 123 
010113 105 122 111 
010116 101 114 040 
010121 114 105 124 
010124 124 105 122 
010127 040 121 125 
010132 101 114 111 
010135 124 131 040 
010140 120 122 111 
010143 116 124 105 
010146 122 000 
13 
14 3; TEST DESCRIPTION 
: ; 
17 010150 DESCRIPT <DIAGNOSTIC FOR LQPSE-F SERIAL PRINTER ON FPDP-11> 
010150 LSDESC:: 
/ 010150 104 111 101 -ASCIZ /DIAGNOSTIC FOR LQPS 
010153 107 116 117 
010156 123 124 111 
010161 103 040 106 
010164 117 122 040 
010167 114 121 120 
010172 123 105 055 
010175 106 040 123 
010200 105 122 111 
010203 101 114 040 ‘ 
010206 120 122 111 
010211 116 124 105 
010214 122 040 117 
010217 116 040 120 
010222 104 120 055 
010225 061 061 000 
i 
20 ; THIS PROGRAM WILL PERFORM UP TO bees Aeon TESTS ON THE 
21 3 LOPSE-F SERIAL INTERFACE PRINTER. THE TESTS WILL CHECK BOTH THE 
22 : LOCAL PRINTER SOFTWARE AND THE PRINTER HARDWARE BY SENDING VARIOUS 
23 * CHARACTER SEQUENCES TO THE PRINTER WHICH WILL CHALLENGE THE PRINTER 
| 24 ; SPECIFIED CAPABILITIES. A PRINT PATTERN WILL BE GENERATED ON THE 


poo 
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GLOBAL TEXT SECTION 


-—— 


49 


RVI 
wnr—o 


010302 
010305 


ww 
— 
So 


SOoooooooooo°o°eo 
a dk ad od od od od 
CSOooooooooo°o°o°0co 
eA Pp eteet Of oF eee 
Mun & & EWN — 


; PRINTER WHICH WILL BE USED IN THE DIAGNOSTIC PROCESS BY THE FIELD 
: SERVICE TECHNICIAN. 
-EVEN 


: FORMAT STATEMENTS USED IN PRINT CALLS 


AAAAARARAARARARARAARARARAARARARARAARARARRARAARAARARARARAARRARARARRARARARARRRARRRRRRAR 


ERROR STATEMENT TABLES 


THESE TABLES ARE USED BY THE ERRDF, PRINTB, AND PRINTX MACROS 
IN THE PROCESS OF PRINTING ERROR MESSAGES TO THE USER AT THE CONSOLE. 


GENERAL FORMATS FOR OUTPUT OF PC AT TIME OF CALL AND ADDRESS OF 
LATEST TRANSMISSION. 


PRTBMO: .ASCIZ /%NZAERROR DETECTED AFTER CALL AT PC: %06/ 


045 116 045 
101 105 122 
122 117 122 
040 040 104 
105 124 105 
103 124 105 
104 040 101 
106 124 105 
122 040 103 
101 114 114 
040 101 124 
040 120 103 
072 040 045 
117 066 000 
903 Ne rot PRTXMO: .ASCIZ /%NZALAST TRANSMISSION STARTED AT LOCATION: %06/ 
123 124 040 
124 122 101 
116 123 115 
111 125 123 
111 117 116 
040 123 124 
101 122 124 
105 104 040 
101 124 040 
114 117 103 
101 124 111 
117 116 072 
040 045 117 
066 000 


SEQ 42 


oa 


LOBAL TEXT SECTION 
54 i ; ERWORD 


| 
| 55 : 
56 010361 111 055 117 EDFMO: .ASCIZ 
010364 040 106 101 
010367 111 114 125 
010372 122 105 040 
010375 104 105 124 
010400 105 103 124 
010403 105 104 040 
010406 101 124 040 
010411 120 122 111 
010414 116 124 105 
$7 010417 122 056 000 
58 3 USE OF 
59 H ERRDF 
60 ; PRINTB 
61 ; PRINTX 
62 : 
63 S cewestanene nee 
64 : 
+H : ERWORD 
67 010422 104 105 126 FDFM1: .ASCIZ 
010425 111 103 105 
010430 040 106 101 
010433 12 101 114 
010436 105 122 
010441 122 117 122 
010444 056 040 040 
010447 120 122 111 
010452 116 124 105 
010455 122 040 102 
010460 125 106 106 
010463 105 122 040 
010466 106 125 114 
010471 114 056 040 
010474 000 
68 3 
69 ; USE OF 
70 ; ERRDF 
71 3 PRINTB 
72 3 PRINTX 
73 3 
74 bs eao ceed secure 
75 ; 
26 : ERWORD 
78 010475 120 122 117 EDFM2: .ASCIZ 
C10500 115 057 122 
010503 101 115 040 
010506 106 101 111 
010511 114 125 122 
010514 105 040 104 
010517 105 124 105 
| 010522 103 126 105 
010525 104 040 102 
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SEQ 43 
2 
BIT-0 1/0 FAILURE 
/1-0 FAILURE DETECTED AT PRINTER./ 


THESE STRINGS WILL BE AS FOLLOWS... 

#NUMO ,EDF M8 “DEVICE FATAL ERROR CALL 
PRTBMO,PGMCTR -PRINT BASIC ERROR MESSAGE 
PRTXMO, TRXADD ,ERWORD “PRINT EXTENDED ERROR MESSAGE 


BIT-1 BUFFER FULL 
/DEVICE FATAL ERROR. PRINTER BUFFER FULL. / 


THESE STRINGS WILL BE AS FOLLOWS... 

#NUM7 ,EDFM1 ~DEVICE FATAL ERROR CALL 
PRTBMO, PGMCTR -PRINT BASIC ERROR MESSAGE 
PRTXMO, TRXADD ,ERWORD -PRINT EXTENDED ERROR MESSAGE 


BIT-2 PROM/RAM FAILURE 
/PROM/<57>/RAM FAILURE DETECTED BY PRINTER./ 


F 4 


SEQ 44 
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[GLOBAL TEXT SECTION GL 
| 010530 131 04 120 | 
010533 122 111 116 
010536 124 105 122 

- 010541 056 000 
80 : USE OF THESE pit WILL BE AS FOLL 
81 : ERRDF ##NUMB,EDFM2 OEVICE “FATAL ERROR CALL | 
82 : PRINTB Print. OGmCTR -PRINT BASIC ERROR MESSAGE | 
+4 ; PRINTX PRTXMO,TRXADD,ERWORD “PRINT EXTENDED ERROR MESSAGE | 
rH @eeeeeeeeeeeeeoeeeeeeeeeeeeeeeeeeeeee eeeeeeeveoee eeeeeeeeeeeeve eeeeeeveeeeeeneeeeeeeeae 
tf 3 ERWORD BIT-3 PRINTER ERROR - N OUT OF RANGE IN ESC SEQUENCE 
89 010543 120 122 111 EDFM3: .ASCIZ /PRINTER ERROR: N OUT OF RANGE IN ESC SEQUENCE./ 
010546 116 124 105 
010551 122 040 105 
010554 122 122 117 
010557 122 072 040 
010562 116 040 117 
010565 125 124 040 
010570 117 106 040 
010573 122 101 116 
010576 107 105 040 
010601 111 116 040 
010604 105 123 103 
010607 040 123 105 
010612 121 125 105 
010615 116 103 105 
- 010620 056 000 
91 : USE OF THESE STRINGS WILL BE AS FOLLOWS... 
92 : ERRDF #NUM9, EOFS “DEVICE FATAL ERROR CALL 
93 : PRINTB PRTBMO,PGMCTR -PRINT BASIC ERROR MESSAGE 
% ; PRINTX PRTXMO, TREAD. ERWORD -PRINT EXTENDED ERROR MESSAGE 
96 ee ee eT eT eT Tee Tee TT eT eee eee TTT TT Te TT TT 
97 : 
<4 ; ERWORD BIT-4 PAUSE SWITCH 
100 010622 120 101 125 EDFM4: .ASCIZ /PAUSE SWITCH PRESSED./ 
010625 123 105 040 
010630 123 127 111 
010633 124 103 110 
010636 040 120 122 
010641 105 123 123 
010644 105 104 056 
wah 010647 000 
102 :PRTBMO AND PRTXMO ARE USED IN THIS ERROR RESPONSE ALSO. USE OF THESE STRINGS 
105 ; USE OF THESE Ad ho WILL BE AS FOLLOWS... 
106 : ERRDF #NUM2 DEVICE FATAL ERROR CALL | 
107 : PRINTB PRIBAOee -PRINT BASIC ERROR MESSAGE 
108 : PRINTX PRTXMO, TRKADD, ERWORD -PRINT EXTENDED ERROR MESSAGE | 
1 ; 
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EDFMS: .ASCIZ 


o-nw-- OO" —* 
MMM — MW Lor 
ASHEN LOrwnr 
o--400 + + = 
oof f+ + 
ou OOnNN-— 
— 
mM—Mm—NwN— © 
NRMAONUIOP 


010675 
: USE OF 
. ERRDF 

: PRINTB 
: ~ PRINTX 


: ERWORD 
EDFM6: .ASCIZ 


2 
MNMMNMNMN 22-2 
MEWN-OOONOuW 


010677 


oOo 

— 

oO 

NN 

™m 

= 
Om SS 1 OS Ss 
DOODNONMNMMNMNNOO for 
OUUIRIW VII WNW SS OO UM! 
O—DOQDOCO£ £FNNCOCO— 
PNM OO BS NIWWUIOA O 
ow Om 3 OS Ss SS SS 
VINO &- wf o-oo oO - Oo 
AOWOO-OUNU OFS & 


010754 


USE OF 
ERRDF 

PRINTB 
PRINTX 


Be Be Be Be Be Se 


ERWORD 
DFM7: .ASCIZ 


oe 
WAM AWN RNY 
SAFUGLSS ane 


o 
— 
o 
_™N 
Ss 
“ 
— 
So 
= 
Tie. es ee 


ooooo[e°o 

ee ed ed ed ed 

oo 

~N 

Le 

Ww 

o 

Ea 

o 
= OFS rrr 
mek -OOOCCeo 
SOON Own 
o-oo os os Ss 
fofkwonrnoonrv 
SNOnn & ie 


ERWORD BIT=-5 RIBBON OUT 


/RIBBON OUT ON PRINTER./ 


THESE STRINGS WILL BE AS FOLLOWS... 

#NUM3 ,EDFMS “DEVICE FATAL ERROR CALL 
PRTBMO,PGMCTR -PRINT BASIC ERROR MESSAGE 
PRTXMO,TRXADD ,ERWORD “PRINT EXTENDED ERROR MESSAGE 


BIT-6 UNDEFINED CHARACTER OR ESC SEQUENCE RECEIVED. 
/UNDEFINED CHARACTER OR ESC SEQUENCE RECEIVED./ 


THESE STRINGS WILL BE AS FOLLOWS... 

#NUM4 EDF M6 ~DEVICE FATAL ERROR CALL 
PRTBMO,PGMCTR -PRINT BASIC ERROR MESSAGE 
PRTXMO, TRXADD ,ERWORD -PRINT EXTENDED ERROR MESSAGE 


BIT-7 SHEET FEEDER ERROR 
/DEVICE FATAL ERROR. SHEET FEEDER ERROR./ 


SEQ 45 


— 


SEQ 46 
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cc a SR STD A ADA ET AOS 


~ 
— 
2 
— 
fa 4 
[vv] a 
o 
<= a 
ww oO 
own 2 
sew ~ 
a" a . 
=qmwn | a 
YVwe > w 
zo o be 
=<: x a 
oacac ” 2 
ac®ow a 
ca ivy) fo 4 
wea o Oo 
wu <= vw 
= é& ”~ 
quZz 2) 2 
— w th 
“xr = w 
uw <x @ 
- @Mw n” 
Wu _ ” 
Bure =x <= 
o-2Zz2 = =x 
a> ~ 
awaene ~ . 
oaaa . a a 
mee « « ws 
Oo oO a 
” a 23 2 
-@ a a _ 
uw w < 
uw a ~ a 
@m [> 4 w | 
oO a a > | 
=/ 2 =< « @o | 
ad a 3 oO j 
— w — Zz oa i 
= . ro ws | 
eco oO a oa } 
ww Fa ” oO Le | 
o~vuc a w ' 
so: a a _ | 
—u Oa . uw od 
@oar o oa i 
ws 4 yr 
" oO ad (7) a | 
var = 3 =z wa oO | 
wk wm» a =a [> 4 j 
WYwodree =< z a 
w2zaenc = P=) [oe) 
xzzaAa ~ &, ~ 
pa 
u @Ox _ ™~ ~ 
our _ — _ 
a2zZz v =) Yv 
wees ” nw ~ | 
Mwaaac <= <= t | 
2mwaa . . j 
co oa 
= = j 
om Lond | 
a a 
eterere eee te oka ws | 
WON NOOR NCUNOKMMMNOwTOOr TOUR ONNOMNHNONDYT NoOowwoorm } 
own NH SRK NONN GK KNORR MK FR RK NNN RK FNNITNOINNO NINN TKO 
rCrrer —KOnreerer RK Orem erM— Ke RK Or errr Orn Oe eK Orne KOK OO 
MMP © eK UMTS AUMR COOMA MNO ss Ws OMMA KR FAR — — WOR NNONNOM YK NY 
ooo-o ORK RN NUNO | TF — TFNONN SANNA NOK NOOK NOOK K VOONNOOCOMANN 
“ne O aH—wrOcrnrerenr kK Or Oren kK Orr eer rrr ernr KOnr Keer KK Oe eee 


wosonvo OR. CO OWNOWTMNKOR zR OCOONNONMONOR FOONM CT OM FHANOO 


KOnrererererne Or O-Oere— eK Cnn K-CKr Kerr 


OmMo- wT ts be Ae gh are fo 
Oa eee DL CUIMIMTTANNOODORR COG] — HK NNNMM ST TNOMNNOORLPR Ck aka) 
oOoo°oe°m CDOOWDCCCOCOCOCCCCO eS &— RK RK BBM FF FFF FF FFF KKK KH NNN 
eo CO FF FFF FFE 
oomcoe i 
OOoOooo Pelelolololololololololololololololololo lomo loo lo loon alata la lana fn fa an) 

oO ~ ts) 

w w wr 

- - - 


NNOM OK Or YR NOM OK VR UNOMNOM SK YR 
| 
| 
| 
| 


137 
138 
139 
140 
141 
142 
143 
144 
145 


| 
| 
| 


le 4 


SEQ 47 
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| 
| 
| 


ERROR WORD (ERWORD) HAS BEEN/ 
ERROR WORD (ERWORD) HAS BEEN/ 


/WARNING: SOFTWARE ERROR. 
/WARNING: SOFTWARE ERROR. 


* 7 

. . 

a (=) 

uw w 

e Ee 

a a 

4 > 

x 

Oo Oo 

v w 
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onl ~s _ ~s 
— _ el — 
~ YU w wow 
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<x < <= <= 


=< 
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wa we 
OMNOOWO-— ONOMNRR FHR KK NONOT NOOOK ONONRKR THR KK NONOY 
ON — FOOTNNOK NOOK HOOK NNDO NK FTOOINNO KNOCK NOOK UNS 
OenrOerer Or Ore nren eK OrKrerne ne wr Orr Or Or Keer KK Or Kreer en 


DOK KH OUR RK NNMONONOR SOONR NNO K VER NWWNONONOR FOOMRNNS 
MOKK K—NOWNNINTNNANOK FORK NOCORKR KNONNITNITNNWNOK TORKNOCS 
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OUR OR Mer UMP OCCUR OWNNWMOMMNMO ST OR OR MTAUMR. ONCUR ONNOMMMN TO 
NN K— ONNNO RK SNNN SOU TFT NOONNNN K ONNNO RK INN MK TN TNOONN YY 
ccc cc OK KK Or wer Ornr Orr err RK Orr Tr rr er nr K Oren HK On Kr Oren KK Oo 


UMMM ot FT TMNMNDOORP RCO RK KK NNAIMMMTTAMNMNOOORR COCK KK NNM 
PoWTatia*latla*lavlavla‘ lat lavlaviala ia la ala slslssl ssl sd salsa sal slalsL~LsLAL oo a a. oe ef 
LLL LLL LOL_OLOLLOLOCOC LCCC CEO 
LO 


Pelololololololololololololololololololololololololololololololololololol olen lala fatal =) 


o Oo - N 
wr wn wn w 
- - - — 


WHEN GETCHR WAIT STARTS GETTING LONG... 


eASCIZ = /RAWALTING/ 


127 WAITMX: 


UNEXPECTED CHARACTER RECEIVED 


ERWORD BIT-12 


-ASCIZ /UNEXPECTED CHARACTER RECEIVED FROM PRINTER./ 


Cc eS en 


r- 


| 


SEQ 48 
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GLOBAL AREAS 


|GLOBAL TEXT SECTION 


WMVUTOMOOR-OOWN 
OOWN TON TK Ue 
eerrerOnrr-COnrerne 


TOK MUM TNO NO 


errnenen—-—On--O 


MTOM NAUMNM OW JT O 
COOr- COONMOOCOK NNW 


wececeecenenenene-O 


NMNOMVO— Tr VUMOMO 
MWMNOOOPR-P-P-OOK eK — 
www TTT TOM 
PPC CPPCC CSCS FC EK 
cccccc ccc core 


fo lela le lo lolololololololo) 


-PRINT BASIC ERROR MESSAGE 
“PRINT EXTENDED ERROR MESSAGE 


-DEVICE FATAL ERROR CALL 


. 
. 
” 
= 3 
So 
| 
—_ 
oO 
um 
” 
zr 
w a 
@ a 
oO 
= 
=! = 
—_ uw 
3 . 
ea 
MWvrFOQ 
Otzvc 
Zzuk &< 
—OoO0e 
aQwar 
m_— = fF 8 
NOSSO 
-z = 
wk ox 
YDee 
weak 
xz#aa 
-— 
u @Ox 
our 
a2z2Zz 
woes 
“cece 
Dmawaa 


EXPECTED CHARACTER NOT RECEIVED FROM PRINTER 


ERWORD BIT-13 


/EXPECTED CHARACTER NOT RECEIVED FROM THE PRINTER./ 


™~ 
Soe] 
.—) 
” 
<= 
. 
a 
= 
—_— 
a 
oak 
OTFOKMVUR WMMNONOOON 
NNTOSCNK  NOOCOK KVNNK Ww 
Set et el el el el el eh eel el el 


OMTOn-NOOMOOR FTOrne 
MOO-COeN— FOCNT KNIT OS 


errr ernr— RK One MK Oe Ore CO 


WWMM TOTNe TUNOMW TO 
COOOCOCNMNTNOK- ONTONNWN 
or O 


rere K Oren KO 


OMO— TR NUMNOM OK 


-PRINT BASIC ERROR MESSAGE 
~PRINT EXTENDED ERROR MESSAGE 


“DEVICE FATAL ERROR CALL 


. 
. 
” 
2 
oO 
I 
-J 
oO 
eS 
” 
< 
uw (=) 
@ « 
Oo 
a | 2 
a « 
_ us 
Zz . 
ea 
YoOra 
ontvuc 
zu x 
“—“OOae 
aware 
m— = & & 
Yr-SooO 
-=z=& 
wz ©» 
YnDrere 
wean 
zzaAa8 
- 
ive @ x 
Our 
o2zZ 
woe 
Neca 
Dsawaa 


”7ENEAEATLED 70°F IND” PRINTER AT DEFAULT ADDRESSES./ 


Wer NTF OTVNTOO 
zFToowoowwny yy 
ornrernrK——- OO 


oowoowuo°ouony 
Se oe et ee LD 


-—K-OCOnrnnnee 


newer Orne 
wOororervse OO 


Ornrnnr—Oeere 


NMWOMVOe wr COUN 
COOnr eK RK NNNNMIMm 
oooowowowowvovond 
eee ae ee oe oe od 
, eicautl aul antt mat anit aaianticonticand 


oooooooococe 


MTN OR. com 
LRERRERRR 


Se eh ee ee ee ae eel 


GLOBAL AREAS 
GLOBAL TEXT SECTION 


180 


181 


0 
182 
0 


011640 
011643 


SIA AAAAAO 
4 SANNA 
—AWOUINS 


ooo 


WWNNN-— 
OwWovinsn 


VININS —-Owouwnr— 


SSNS NN NS NS NS NSS NNN 
AOU & Pw 


~“ 
o 


Se el 
~N 
“ 
w 


_ 
~ 
“ 
o 


012001 
2 


ooooo[oo 
dd ad td ot ot 


MACRO V03.01 7-NOV-80 10:06:10 PAGE 10-8 


ed td ot 2 CE = = ot 
ONIN FSOOONOCO 
VINONWOUUITE a & 


ss 
oN 


== FUN ON) SON & FNM $$ WNINMNONDO 


Oo 00 2 2 2 2 | 00 2 SS SS SS SS 
VUAUOA WWF WOOO UGE SUVIWN SW 


x 


Ow SS os 1 OS 
MMINMIPINMIMMNMO LENO 
AMMS LFVWWL OVW 


oo-o— — St SS 1 OO 
Sue FS OO NW SOON Ee 
SAAUA VU HOH HS SUNWO- 


3 32 OS SS 
om LFOOCOVUMNMNO-o 
NO MP UIA WW SS EO 


-Oo St tO 1 OO 
—-F DOOLNM—WON——NMNMNODLO 
AW SOUOfL-OUVFSUNW WE OW 


-ASCII / RESTART PROGRAM. 


eASCIZ /2NZNENENZA. 


/<12><15> 


-ASCII /%NZATHE CSR ADDRESS QUESTION MUST BE EXPLICITLY SPECIFIED./ 


a/ 


SEQ 49 


SEQ 50 
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GLOBAL TEXT SECTION 


Mr 4 ~ 


rroe - 


GLOBAL AREAS 


Te ne 


a/ 
TRY AGAIN... %/ 
a/ 


TRY AGAIN.. 


ERROR MESSAGE FORMAT FOR FAILURE IN DEFAULT PROCEDURE. 


-ASCIZ /2NZAINCORRECT CSR ADDRESS GIVEN. 
-ASCIZ /%NZALNCORRECT CSR ADDRESS OR CHANNEL GIVEN. 


-ASCIZ /ZNZAFAILED TO TRANSMIT TO PRINTER. 


af ~N = 
a Qa > 
a) at a 
— — ax 
< 4 =< 
vas rr va 
MWONUMMOTMRNOW——OCOSDSDSCD NKNOWVUMMOTMEMOT- CO-k OOO WenwwTor To 
THNOOTFOWNCOINORKKNSTIIIIF LRH NOOTFONK Cnr KK IMOK NTF TOOWNSK KUN 
Oren K—OnrnrerK—Oernr -OCOOCCOCO CKrewrer RK OCnrnrernrnrer eK Cee COO SCT KreerrK— 


owuowo- OOOCCCOoOO wncormnr nos resses 
KKK OTNOCOTNMANTZOMNS SITIO KM KOT NOCO VT TOOOCOYFNOK NYO a ola oS 
or Or Or COOCCCOoCOoo KOOnr ere K-COnrenK-OCOCOeK KK Soon OO 


BHMVNTINE AM — OOK DOCK KCONNE  MNIMEK NMNVNOOCOOOOT On COMMS HK IR NM SN 


rrerenenrOee a! yee eee 


ee NINOM CONST. 
SC CC OCC MOM MM KKK NNNN CIN CN Tala ed ad edb Lah Ob lab lad lad Lal 

NAVAN ANNNN NNN NNN NNN PvTavravraviavia iain ia ia ta ia ie th lee ae ee ta) 
FF FF OO 


CODDCDCDDOCSOSOSCSCSCOSCSOSOOCSOSOSOCOCSSDSOSOSOSOSSSOOSOSSOSSOSSOSSSSSSSO 


TTNNNAOOOFF OS 
NNNNNNNNN 
fa Tatas) 


oo 
_— 
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GLOBAL TEXT SECTION 
012351 122 111 116 
912354 124 105 122 
012357 056 040 040 
012362 040 040 040 
012365 040 040 040 
012370 040 040 04 
012373 040 040 040 
012376 040 040 40 
012401 040 040 0 
012404 040 040 040 
012407 040 040 040 
012412 045 000 
188 012414 © 045 116 045 WFC: sASCIZ /%NZAWAITING FOR A CHARACTER FROM THE PRINTER. 
012417 101 127 101 
012422 111 124 111 
012425 116 107 040 
012430 106 117 122 
012433 040 101 040 
012436 103 110 101 
012441 122 101 103 
012444 124 105 122 
012447 040 106 122 
012452 117 115 040 
012455 124 110 105 
012460 040 120 122 
012463 111 116 124 
012466 105 122 056 
012471 040 040 040 
012474 040 040 040 
012477 040 040 040 
012502 040 040 040 
012505 040 040 040 
012510 045 000 
189 012512 045 116 045 TIMOM: .ASCIZ /ZNZATIME-OUT: CHECK TO SEE IF PRINTER CONNECTED PROPERLY. 

012515 101 124 111 
012520 115 105 055 
012523 117 125 124 
012526 072 040 103 
012531 110 105 103 
012534 113 040 124 
012537 117 040 123 
012542 105 105 040 
012545 111 106 040 
012550 120 122 111 
012553 116 124 105 
012556 122 040 103 
012561 117 116 116 
012564 105 103 124 
012567 105 104 040 
012572 120 122 117 
012575 120 105 122 
012600 114 131 056 
012603 040 040 040 
012606 045 000 





z/ 


%/ 


SEQ 51 


om ] 


GLOBAL AREAS 


mc 
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GLOBAL ERROR REPORT SECTION 


193 


-SBTTL GLOBAL ERROR REPORT SECTION 


SEQ 52 


xm 


SEQ 53 
IGLOBAL AREAS MACRO V03.01 7-NOV-80 10:06:10 PAGE 11 
GLOBAL ERROR REPORT SECTION 


1 
2 53% 
3 : THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 
4 : USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. PRINTB 
i ; (BASIC) AND PRINTX (EXTENDED) CALLS ARE USED TO CALL PRINT SERVICES. 
7 
8 EVEN 
9 012610 BGNMSG 
10 
| 11 
12 012610 EXIT MSG 
012610 000167 «WORD JSJMP 
13 012612 000000 «WORD 1£10001-2*. 
14 , 
15 
16 012614 ENDMSG 
012614 L10001: 
012614 104423 TRAP C$MSG 
17 .SBTTL GLOBAL SUBROUTINES SECTION 


¥ , 


Ty 


Be See aera aE ree Rial 


GLOBAL AREAS 
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GLOBAL SUBROUTINES SECTION 


wn 


5 oe 
; THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
; THAT ARE USED IN MORE THAN ONE TEST. 


SEQ 54 


aa 


2a 


SLOBAL AREAS 


GLOBAL SUBROUTINES SECTION 


MEWN 30 ODNAUEWN (OOD ONOUFWN 


MPOPOMIPO RORY @ @ 2 Ss Ss Ss es 


26 


Be Be Be Be Be Be Se Be Be Be Se Be Be Se Be Be Be Fe Be Ge Be Be Be Se Ge Be Se Se Be Se Ge 
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SEQ 55 


GLOBAL PROCEDURE XMIT: 


THIS PROCEDURE WILL TRANSMIT CHARACTER are TO THE PRINTER. 

THE SEQUENCE WILL BE TRANSMITTED IN ONE OF TWO MODES: WITH 

BIDIRECTIONAL PRINTING ENABLED AND WITH BIDIRECTIONAL PRINTING 
ISABLED. THERE ARE THREE ARGUMENTS SENT TO THIS ROUTINE IN 


TO THE PRINTER FROM THE CONTIGUOUS ARRAY WHOSE ADDRESS IA IN R1. 


R3, IF SET TO -1, ENABLES BIDIRECTIONAL PRINTING SOFTWARE TO 
CONTROL THE TRANSMISSION PROCESS. IF R3 IS EQUAL TO ZERO, THEN 
NO BIDIRECTIONAL PRINTING IS PERMITTED AND ALL CARRIAGE CONTROL 
CHARACTERS MUST BE EXPLICITLY SENT BY THE CALLING ROUTINE. 


R1_IS EXPECTED TO CONTAIN THE ADDRESS 


INPUTS 


OUTPUTS 


R1 « ADDRESS OF STRING TO PRINT 
R2 * NUMBER OF BYTES IN STRING TO BE PRINTED 
R3 . IF SET, BIDIRECTIONAL PRINTING IS TO BE “ENABLED. 


in lew I$ Te ON THE PRINTER. 


SET TO -1, AN ERROR HAS OCCURRED. SET FOR FAST EXIT 


SUBROUTINES USED 
SENCHR - THIS ROUTINE WILL SEND THE CHARACTER TO THE — 


BUFFER (IF THERE IS ROOM IN THE BUFFER AND 
CHARACTERS ARE CURRENTLY BEING RECEIVED. 


SIDE EFFECTS 


THE CONTENTS OF R1 AND R2 ARE NOT PRESERVED. R3, R4, AND RS ARE 


PRESERVED. IF A TRANSMISSION ERROR OCCURS, THIS ROUTINE WILL CAUSE A 


- GREASED EXIT TO OCCUR FROM THE CURRENT TEST. 


CALLING SEQUENCE 


PUT THE STRING ADDRESS iNTO R1, THE NUMBER OF CHARACTERS TO BE PRINTED 
te = AND SET R3 TO ENABLE OR DISABLE THE SERS TO “1 FOR 


SET O 0 FOR NO BIDIRECTIONAL PRINTING. 
BIDIRECTIONAL PRINTING ENABLE. THE CALL IS THEN.. 
JSR PC, XMIT 


|GLOBAL AREAS 
‘GLOBAL SUBROUTINES SECTION 


58 012616 


63 012632 
64 
65 012634 
66 
67 012640 


70 012654 


72 012660 
73 012662 


9 
012664 
012666 


012670 


012672 
012676 


78 

7 

80 

81 

83 

85 

86 

87 

88 012702 
89 012710 
90 012712 
92 

93 
Oe 

9 

9 


012716 


7 
98 
012732 


012740 


012742 
012746 


012752 
012756 
012762 


ee ee ee ee ee ed eed oe od ed 
RUN 2=OSh VeARRAN ISS 


MACRO VO3.01 7-NOV-80 10:06:10 PAGE 13-1 


011637 
6 


010546 
010137 
012705 


005237 


005703 
001021 


010103 
060203 


112102 


005037 
004737 


022737 
001002 
000137 


020103 


100763 
000137 


010103 
060203 


023737 


007314 


005250 
007352 


010026 


002206 
013366 


177777 
013352 


013352 


006502 


002314 
013366 


006502 
006504 


002206 


010042 


XMIT: 


Se Be Be ee 


XSTR: 


LCHYET: 


ead 


LNELOO: 


(SP) ,PGMCTR 
R P) 


R5,-(SP) 
R1,TRXADD 
#BFRA,RS 
#150. ,R5 


RS, TOPSTK 
TOPSTK 


R3 
BIDIRP 


R1,R3 
R2,R3 


(R1)+,R2 


GREASE 
PC,SENCHR 


#-1, GREASE 


CRNTPR,LINSIZ 


SENDR2 
LF ,R2 
PC,SENCHR 
CRNTPR 


DIRCIN 
FWRLO 


;SAVE THE CALLING PC + 4 


;SAVE ALL GUARANTEED 
REGISTERS. 


SAVE THE TRANSMISSION ADDRESS 


;BOTTOM OF SOFTWARE STACK 
;TOP OF SOFTWARE STACK 
TOP OF STACK ADDRESS 


R 
;PLUS 1 FOR COUNTING PURPOSES. 


;1F ZERO THEN NO BIDIRECTIONAL PRINTING 
;IF SET THEN GOTO BIDIRECTIONAL PRNTG CODE 


NO BIDIRECTIONAL PRINTING. 


ALL CARRIAGE 


CONTROL MUST BE EXPLICITLY SENT BY 


THE CALLING ROUTINE. 


sADDRESS OF THE FIRST CHARACTER IN THE STRING 
+ ADDRESS OF THE LAST ae vy IN THE STRING 


S ONE. 

:GET THE sey My INTO Ro AND POINT TO NEXT 
CHARACTER IN ALI, a 

‘ASSUME NO PREVIOUS ERROR 


;SEND THE CHARACTER IN RD TO THE PRINTER. 


;TIME-OUT ERROR. ECNR STAT 


US. 
ZEXPRESS EXIT FOR ECNR ERROR REPORT. 


HAS THE LAST CHARACTER BEEN PRINTED YET? 


;LOOP THROUGH THE LIST UNTIL 


DONE. 
[AND WHEN DONE WITH STRING, EXIT TEST. 
BIDIRECTIONAL PRINTING CODE FOLLOWS.... 
sADDRESS OF THE STRING TO BE PRINTED 


; ADDRESS OF LAST CHARACTER TO BE PRINTED. 
PLUS 1 FOR COUNTING PURPOSES. 


:CRNTPR “CURRENT POINTER- IS INITIALIZED TO 
; ZERO BY THE INITCD 


ROUT INE 


CRNTPR KEEPS 


: TRACK OF HTE NUMBER 4 CHARACTERS PRINTED 


; SINCE THE LAST LINE 


FEED. 
IF CRNTPR LESS THAN LINSIZ THEN THERE ARE 
; MORE CHARACTERS TO PRINT ON THIS LINE. 


LINE IS FINISHED. 
THE PRINT DIRECTION. 


SEND LINE FEED AND REVERSE 


;RESET THE CHARACTER COUNT FOR THIS LINE. 


[WHAT IS THE CURRENT PRINT DIRECTION? O=FORWARD 
;IF REVERSE (1) THEN CHANGE TO FORWORD PRINT. 


SEQ 56 


-—— 
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‘GLOBAL SUBROUTINES SECTION 


Cas 
a. on 
WW? 012764 012737 000001 006504 MOV #1,DIRCTN 
| 119 012772 113702 002244 MOVB = STCHSZ,R2 
| 120 012776 004737 013366 JSR PC, SENCHR 
| 422 013002 022737 177777 002206 CMP #-1,GREASE 
| 1g 013010 001560 BEQ EXITX 
125 013012 112702 000057 MOVB = #HEXF,R2 
166 013016 004737 013366 JSR PC, SENCHR 
128 013022 022737 177777 002206 CMP #-1, GREASE 
129 013030 001550 BEQ EXITX 
131 013032 004737 013366 JSR PC, SENCHR 
| 433 013036 022737 177777 002206 CMP #-1,GREASE 
1s 013044 001542 BEQ EXITX 
136 013046 112702 000044 MOVB —- #FOUR, R2 
137 013052 004737 013366 JSR PC, SENCHR 
139 013056 022737 177777 002206 CMP #-1,GREASE 
aT 013064 001532 BEQ EXITX 
142 013066 012700 000004 MOV #4 RO 
143 013072 116002 002244 MOVB  - STCHSZ(RO),R2 
144 013076 004737 013366 JSR PC, SENCHR 
146 013102 022737 177777 002206 CMP #-1,GREASE 
147 013110 001520 | BEQ EXITX 
148 
149 
131 
152 013112 113702 006521 MOVB ESCAPE ,R2 
155 013116 004737 013366 JSR PC, SENCHR 
155 013122 112702 000057 MOVB = #HEXF ,R2 
136 013126 004737 013366 JSR PC, SENCHR 
158 013132 112702 000057 MOVB  #HEXF,R2 
139 013136 004737 013366 JSR PC, SENCHR 
161 013142 112702 000044 MOVB - #FCUR, R2 
16¢ 013146 004737 013366 JSR PC, SENCHR 
164 013152 112702 000073 MOVB «#73, R2 
| 165 013156 004737 013366 JSR PC, SENCHR 
| 167 
168 
169 
HA 013162 000456 BR SENDR2 


SEQ 57 


iIF FORWARD (1) THEN CHANGE TO REVERSE PRINT. 


"ESC ef 
:T0 RESET. CHARACTER SIZE TO NEGATIVE 10 CHAR 


SHAS A TIME-OUT OCCURRED? EXPRESS EXIT | 
;FROM THIS ROUTINE MAY BE REQUIRED. : 


: PER INCH. THIS ENABLES REVERSE <---! 
: CARRIAGE MOTION WHILE PRINTING. <--' 


HAS A_TIME-OUT OCCURRED? EXPRESS EXIT 
;FROM THIS ROUTINE MAY BE REQUIRED. 


sHEXF ,HEXF ,FOUR= -12 = -10 CHAR/INCH 


;HAS A _TIME-OUT OCCURRED? EXPRESS EXIT 
;FROM THIS ROUTINE MAY BE REQUIRED. 


HAS A_TIME-OUT OCCURRED? EXPRESS EXIT 
;FROM THIS ROUTINE MAY BE REQUIRED. 


; SEQUENCE: ESC 1111 1111 0100 A 
; SENT TO THE PRINTER. 


;HAS A _TIME-OUT OCCURRED? EXPRESS EXIT 
;FROM THIS ROUTINE MAY BE REQUIRED. 


;NOW MOVE THE CARRIAGE ONE SPACE TO THE 
;LEFT TO EVEN UP THE MARGIN. 


‘SEND ESCAPE CHAR TO PRINTER 


;NOW TRANSMIT -12 IN THREE HEX VALUES 
; IN THREE CHARACTERS 


;SEMI-COLON TO COMPLETE THE SEQUENCE WHERE 
; ESC HEXF ,HEXF ,FOUR (SEMI-COLON) CAUSES 

; THE ONE-TENTH INCH SPACE TO THE LEFT. 
;THE MARGIN SHOULD NOW BE EVEN. 


;NOW SEND THE CHARACTER TO THE PRINTER. 


GLOBAL AREAS 


NNN 


OO CO 0 OO 09 OS CD CD 09 CD CD O98 NI SI I~ 
CESSES ARRAS SS Sane 


Ot kk a ak tk at a a st 2 
wr 


oo 
> 


2 
210 


ROMOPOMPINMINOMONINONINMPNIMPONMY NINMONINY 
NOPMOMO MONO RONEN — A a SO Oo 


ONO MEW O OONOUESWN— 
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113702 
004737 


022737 
001461 


112702 
004737 


022737 
001451 


004737 


022737 
001443 


112702 
004737 


022737 
001433 


012700 
116002 
004737 


022737 
001421 


113702 
004737 


112102 
004737 
022737 
001406 
005237 
020103 
001402 
000137 
012605 
012604 
01 

012602 


006504 


002244 
013366 


177777 
000040 
013366 
177777 


013366 
177777 
000054 
013366 
177777 
000004 
002244 
013366 
177777 


006541 
013366 


013366 
177777 


006502 


012732 


002206 


002206 


002206 


002206 


002206 


002206 


CLR 


MOVB 
JSR 


CMP 
BEQ 


MOVB 
JSR 


CMP 
BEQ 


JSR 


CMP 
BEQ 


MOVB 
JSR 


CMP 
BEQ 


MOV 
MOVB 
JSR 


CMP 
BEQ 


MOVB 
JSR 


MOVB 
J 


DIRCTN 


STCHSZ,R2 
PC,SENCHR 


EXITX 
#ZERO,R2 
PC,SENCHR 
#-1,GREASE 
EXITX 
PC,SENCHR 
#-1 GREASE 
EXITX 
#HEXC,R2 
PC,SENCHR 
#-1,GREASE 
EXITX 


#4,R0 
STCHSZ(RO) ,R2 


PC, SENCHR 
#-1, GREASE 
EXITX 


SPACE ,R2 
PC,SENCHR 


(R1)+,R2 
PC,SENCHR 
#~1,GREASE 
EXiTXx 


CRNTPR 
R1,R3 


EXITX 
LNELOO 


(SP)+,R5 
(SP)+#,R4 
(SP)+,R3 
(SP)+,R2 


SEQ 58 


; INDICATE THAT THE DIRECTION IS FCRWARD PRINT. 


TRESTORE CHARACTER SIZE TO A POSITIVE 10 CHAR 
;PER INCH. AT LEAST TWO MORE LINES TO GO.... 


;RESTORE CARRIAGE MOTION TO FORWARD. 


;HAS A _TIME-OUT OCCURRED? EXPRESS EXIT 
;FROM THIS ROUTINE MAY BE REQUIRED. 


HAS A _TIME-OUT OCCURRED? EXPRESS EXIT 
;FROM THIS ROUTINE MAY BE REQUIRED. 


;SEQUENCE SENT: ESC 0000 0000 1100 A 


;HAS A_TIME-OUT OCCURRED? EXPRESS EXIT 
;FROM THIS ROUTINE MAY BE REQUIRED. 


;ZERO,ZERO,HEXC = 12 = 10 CHARACTERS/INCH 


HAS A TIME-OUT OCCURRED? EXPRESS EXIT 
;FROM THIS ROUTINE MAY BE REQUIRED. 


“FORWARD CARRIAGE RESTORED. 


HAS A_TIME-OUT OCCURRED? EXPRESS EXIT 
;FROM THIS ROUTINE MAY BE REQUIRED. 


;NOW TRANSMIT A SPACE TO EVEN UP THE MARGIN. 


:GET THE CHARACTER FOR TRANSMISSION. 
;SEND THE CHARACTER TO THE PRINTER. 


‘EXPRESS EXIT IF ANY PROBLEMS. 


;CURRENT IN-LINE POINTER UPDATED. 

71S THE ADDRESS OF THE NEXT CHARACTER TO BE 
;PRINTED EQUAL TO THE ADDRESS OF THE LAST 
;CHARACTER (PLUS 1) TO BE TRANSMITTED? 

:IF NOT YET THERE, REPEAT TRANSMIT PROCESS. 


;RESTORE 
2 REGISTERS 
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229 013362 012601 MOV (SP)+,R1 
231 013364 000207 RTS PC 


SEQ 59 


LOL 


rc 


GLOBAL AREAS 


| 
| 
} 
i 


Nm 
WN |] 0 OBNOUEFWN $0 OONOUFWN— 


NMR RON SS os Ss sw 


39 013366 
40 013370 
41 013372 
og 013374 


PP & B 

UEWN Oo OONO 
ooooo COOCOCOoOoCOoOOoO 
— ot ot od od — at oe od 
EERE Fereee 
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010246 


010546 
013777 
013777 
005005 
005003 
005203 
020327 
100420 
005205 
020527 
001010 


006442 
006436 


007000 


000106 


005154 
000001 


“FONCTIONAC DESCRIPTION 


Be Se Se Be Se Se Be Se Be Se Be 


SENCHR: 


173702 SENCH2: 
173676 


RESINN: 
SENCLP: 


GLOBAL PROCEDURE SENCHR: 


THIS ROUTINE TAKES THE ASCII BYTE IN REGISTER R2 AND SENDS 
IT TO THE PRINTER - WHEN POSSIBLE. 


R2 


OUTPUTS 


INPUTS 


THE LOW BYTE IN R2 IS THE CHARACTER TO BE PRINTED. 


THE CHARACTER IS SENT TO THE PRINTER. 


WAITXN 


STSERR 


SUBORDINATE ROUTINES USED 


WAITS FOR THE XON CHARACTER TO BE SENT FROM THE 
PRINTER. IF THE XON IS NOT RECEIVED, A TIME-OUT 
ERROR MAY OCCUR AND A GREASED EXIT IS ENABLED. 


ADJUSTS THE ERROR FLAG-WORD. THE PRINTER IS 
QUERIED ABOUT THE PRINTER STATUS. 


FUNCTIONAL SIDE EFFECTS 


THE REGISTERS R2 AND R3 ARE PRESERVED. WITH THE SETTING OF AN 
ERROR STATE, THE GREASED EXIT MAY BE INITIATED. 


CMP 


BNE COIE 
PRINTX WTSTPM 


R2,-(SP) 7 SAVE 

R3,-(SP) 

R4,-(SP) : REGISTERS 

R5,-(SP) 

LPRINI,@LPR :1F DZ THEN SET PARMS, IF DL THEN NO EFFECT. 


aaa 7I1F OZ THEN SET CHANNEL. IF DL, NO EFFECT. 


R3 ; COUNTER 

R3 ‘ ; COUNTER 

R3,#7000 ; INNER LOOP CHECK 

CNTNU :KEEP LOOPING UNTIL WE REACH 77000 
;OUTER LOOP COUNTER 

R5,#70. ;PRINT A WAITING TO SEND MESSAGE. 


:CONTINUE WITH LOOP IF NOT 70 YET 
;WAITING TO SEND TO PRINTER MESSAGE. 
MOV WISTPM,-(SP) 


MOV #1,-(SP) 


SEQ 60 


GLOBAL AREAS 


7 
7 013514 


4 
75 013520 
76 013524 
77 


78 013526 
79 013532 


80 
81 013534 
82 


83 013540 
84 013546 


85 
86 013550 
87 


88 013552 
89 013556 


90 
91 013560 
92 013564 


93 
94 013566 
95 


96 
97 013574 


3 
o 
td ad 
ess 
=—oOnN 
wR 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


SSLESRELLS 
oooo oo oOo 
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| 


010600 
104415 
062706 
020527 
100045 
000753 


032777 
001007 


033777 
001744 


110277 
000445 
017704 


120437 
001764 


120437 
001007 


004737 


022737 
001427 


000712 


120437 
001416 


120437 
001413 


052737 


000740 


012737 
012737 
000405 
052737 
004737 
012605 

12604 


0 
012603 
012602 


000004 


000144 


000200 


010044 


173572 


173562 


006520 


006517 


013640 
177777 


006516 


006515 


010000 


000001 


177777 


100000 
014774 


173602 


173574 


002206 


006500 


006512 
002206 


006500 


COIE: 


CNTNU: 


BETA: 


ALPHA: 


CHKCAN: 


CMPB 
BEQ 


CMPB 
BEQ 


BIS 


R5,#100. 

XETS 
RESINN 
#BIT7,aRCSR 
ALPHA 


TROYBT ,@XCSR 
SENCLP 
R2,aXxBuUF 
EXITS 


@RBUF ,R4 
R4,XON 
BETA 

R4 ,XOFF 
CHKCAN 

PC .WAITXN 
#-1 ,GREASE 
EXITS 
SENCH2 


R4,CAN 
SETER 


R4,EOT 
SETER 


#B1T12,ERWORD 


BETA 


#1, FLTRDY 
at ; GREASE 


#B1T15, — 
PC, STSERR 


(SP)+,R5 
(SP)+,R4 
(SP)+,R3 
(SP)+,R2 


SEQ 61 


MOV SP ,RO 
TRAP CSPNTX 
ADD #4 ,SP 


;ALLOW 100 LOOPS hy TIME OUT. 
FAILURE TO FIND TRDY. 
;RESET INNER LOOP 


71S RECEIVER READY? SHOULD BE SET IF IT IS. 
;IF SET, ALPHA TAKES CARE OF BUFFER READ. 


;RCVR NOT RDY. SEE IF THE TRANSMITTER IS READY 
;1F ZERO, NOT READY, LOOP AND CHECK AGAIN. 


;PUT CHARACTER INTO TRANSMITTER BUFFER. 
;AND EXIT 


READ THE RECEIVER BUFFER. 

IS IT = ‘'XON''? 

IF IT IS THEN ALL IS OK, CONTINUE. 

s1S IT = ‘'XOFF’'? 

;IF NOT ‘'XOFF*’ THEN MAYBE IT IS A ‘'CAN"’ 

iIF IT = AN XOFF THEN WE MUST WAIT FOR 
N XON AND THEN SEND CHARACTER. 


HAS A TIME=OUT OCCURRED? EXPRESS EXIT 
;FROM THIS ROUTINE MAY BE REQUIRED. 


;XON FOUND ON TIME. LOOK FOR TRANSMIT READY. 


;CHARACTER = ‘‘CAN'' ? 
:IF IT IS THEN SET APPROPRIATE FLAG (ERWORD) 


;CHARACTER = ‘‘EOT'’ ? 
:IF IT IS THEN SET APPROPRIATE FLAG (ERWORD) 


;NONE OF THE USUAL CHARACTERS FOUND 

; ASYNCHRONOUSLY. UNEXPECTED CHARACTER 
RECEIVED INDICATED IN ERWORD. 

STRY AGAIN TO SEND CHARACTER 


; INDICATE FAILED TO FIND TRANSMIT READY. 
ENABLE GREASED EXITS FROM TESTS. 

sFAIL TO FIND TROY 

CAN OR EOT TYPE ERROR 

:SET UP ERWORD. 

;RESTORE 


: REGISTERS 


-— 
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013636 000207 RTS PC 


ed dd ao ad od ed ed ed 
a 
ONAOUS WN "O 


SEQ 62 


SEQ 63 
GLOBAL AREAS MACRO V03.01 7-NOV-80 10:06:10 PAGE 15 
GLOBAL SUBROUTINES SECTION 


SFUNCTIONAL DESCRIPTION 
: GLOBAL PROCEDURE WAITXN: 
: THIS PROCEDURE WAITS FOR THE “'XON’’ CHARACTER TO BE SENT BY THE 


MOCO ODNAUEWN —“OVDONOUEWN— 


1 PRINTER. IF THE CHARACTER IS NOT SENT WITHIN A REASONABLE AMOUNT 
OF TIME, THEN A TIME - OUT WARNING IS GIVEN. 

1 J tee eee eee eee cen e eee e newer eee eens ese eeseeseesesescenccnsssnnwne 
1 ; 

: 3 INPUTS 

: NO INPUTS FROM CALLING ROUTINE. 

! ‘OUTPUTS 

2 : IF A TIME-OUT OCCURS DUE TO TOO LONG A WAIT FOR THE XON CHARACTER 
22 TO BE RECEIVED, THE ERROR FLAG-WORD IS CHANGED. 

24 “SUBORDINATE ROUTINES 

26 DELAYS - THIS ROUTINE wie CAUSE A 100 USEC DELAY 

27 WITH RS SET TO 1. 

4: : FUNCTIONAL SIDE EFFECTS 

31 R1 AND R2 ARE PRESERVED. NO SIDE EFFECTS. 

33 ; 

34 

35 

36 

33 

39 013640 010146 WAITXN: MOV R1,-(SP) sSAVE USED REGISTERS 

40 013642 010446 MOV R4,-(SP) ; 

42 013644 005037 006510 CLR OUTSDC SOQUTSIDE LOOP COUNTER. 1 MINUTE WAIT 
43 013650 005001 OUTSDL: CLR R1 = INSIDE LOOP COUNTER. 

45 013652 012705 004000 MOV #4000,R5 : ARGUMENT FOR THE DELAY 

46 013656 004737 015224 LOOPXN: JSR PC DELAYS [ABOUT 1 MSEC 

48 013662 032777 000200 173406 BIT #BIT7,aRCSR :RECEIVER READY? =0 IF NOT READY. 

49 013670 001415 BEQ LOOPCK “NOT READY? THEN CHECK AGAIN 

50 013672 004737 014012 JSR PC,GETCHR :GET THE BYTE 

51 013676 120437 006520 CMPB —s-RG. XON [1S IT = "XON' ? 

32 013702 001440 BEQ EXiT IF = XON OK... EXIT ROUTINE WITH NO ERROR 
54 013704 012737 177777 002206 MOV #-1, GREASE sUNEXPECTED CHARACTER RECEIVED. ENABLE 
55 013712 052737 010000 006500 BIS falite. ERWORD :''GREASED' EXIT FROM CALLING ROUTINE. 

36 013720 000137 014004 JMP EXITO “EXIT ROUTINE. 





SEQ 64 
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58 013724 005201 LOOPCK: INC R1 UPDATE LOOP COUNTER 

59 013726 020127 077000 CMP R1,#077000 SLOPED ENOUGH TIMES YET? 5 SEC CHECK 

60 013732 100751 BMI LOOPKN “CONTINUE TO LOOP UNTIL 5000 EXCEEDED. 

2 013734 005237 006510 INC oUTSDC OUTSIDE LOOP COUNT 

63 013740 023727 006510 000015 CMP OUTSDC #15 13 LOOPS YET? 

64 013746 100740 BMI OUTSDL NO? THEN START UP AGAIN 

66 013750 052737 010000 006500 BIS #B1T12,ERWORD T XON.... ERROR UCRB 

67 013756 052737 100000 006500 BIS #81115 ERWORD a ERROR 1 DETECTED AND INDICATED 

69 013764 , PRINTX #TIMOM PRINT TIMEOUT MESSAGE 

13764 012746 012512 mov #TIMOM, = (SP) 

013770 012746 000001 MOV #1,-(SP) 
013774 010600 MOV SP-RO 
013776 104415 TRAP  CSPNTX 

= 014000 062706 000004 _ ADD #4, SP 

71 014004 012604 EXITON: MOV (SP) +,RG SRESTORE THE REGISTERS 

22 014006 012601 MOV (SP) +_R1 

ry 014010 000207 : RTS PC 


76 
77 


SEQ 65 
GLOBAL AREAS MACRO V03.01 7-NOV-80 10:06:10 PAGE 16 
GLOBAL SUBROUTINES SECTION 


FUNCTIONAL DESCRIPTION 
GLOBAL PROCEDURE GETCHR 


1 

2 

3 

4 

5 

* ; 

7 $ 

8 ; 

10 . 

11 : THIS PROCEDURE WILL GET A CHARACTER AND WILL INDICATE A TIME-OUT 
\2 ; ERROR IF IT FAILS TOO RECEIVE A CHARACTER WITHIN A REASONABLE TIME. 
14 : 

15 J tem nen nee mene mewn ence nen eneee wenn ee nese wescenescncscscsosses 
16 ; 

17 : INPUTS 

18 : 

19 ; NONE 

20 ; 

21 ,., OUTPUTS 
$i : THE RECEIVER BUFFER IS READ AND PLACED IN R4. 
25 SUBORDINATE ROUTINES 
7 : DELAYS - GET A 100 USEC DELAY 
29 [FUNCTIONAL SIDE EFFECTS 
3 : THE ERROR FLAG-WORD MAY CHANGE IF AN ERROR IS FOUND. 
33 ° 
34 014012 010146 GETCHR: MOV R1,-(SP) :SAVE REGISTERS 

35 014014 010246 MOV R2,-(SP) ; 

36 014016 010546 MOV R5.-(SP) , 

38 014020 005037 006506 CLR OUTCTR - sQUTER LOOP COUNTER. 

39 014024 005001 OUTRLP: CLR R1 ;TIMING INNER LOOP COUNTER. 

41 014026 032777 000200 173242 LOOPG: BIT #BITO7,ARCSR ;RCSR-7 SET? RECEIVER READY? RDONE? 

42 014034 001041 BNE SENDR ity ES. «5: GET THE CHARACTER OUT OF THE BUFFER 
44 014036 012705 000001 MOV #1,R5 ‘SHORT DELAY... 100 USEC 

45 014042 004737 015224 JSR PC DELAYS ‘WAIT AROUND FOR A WHILE 

47 014046 005201 INC R1 :LOOP COUNTER UPDATE. 
49 014050 020127 002400 NOPRTM: CMP R1,#2400 :LOOPED LONG ENOUGH TO SET TIME-OUT INDICATOR? 
50 014054 100764 BMI LOOPG ‘LOOP UNTIL 24400 OR RECEIVER IS SET 

32 014056 005237 006506 INC OUTCTR SUPDATE OUTSIDE COUNTER. 

54 014062 023727 006506 000024 CMP QUTCTR, #20. sHAVE WE BEEN WAITING LONG? 

55 014070 001010 BNE CONTLO ‘SKIP PRINT. ONCE PER LONG WAIT ONLY 

56 014072 PRINTX #WFC [PRINT WAITING FOR A CHARACTER FROM PRINTER, 


014072 012746 012414 MOV @WFC .-(SP) 
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014076 012746 000001 
014102 010600 
C14104 104415 
014106 062706 000004 


58 014112 023727 006506 000132 CONTLO: CMP OUTCTR,#90. 
2 014120 100741 BMI OUTRLP 

61 014122 052737 020000 006500 BIS #B1T13,ERWORD 
6 014130 052737 100000 006500 BIS #B1T15,ERWORD 
re 014136 000413 BR EXITE 

66 

+4 014140 017704 173136 SENDR: MOV @RBUF ,R4 

69 014144 120437 006516 CMPB R4,CAN 

y 014150 001403 BEQ ERSETT 

72 014152 120437 006515 CMPB R4,E0T 

ie 014156 001003 BNE EXITE 

4 014160 052737 100000 006500 ERSETT: BIS #B1T15,ERWORD 
77 

78 014166 012605 EXITE: MOV (SP)+,R5 

79 014170 012602 MOV (SP)+,R2 

s 014172 012601 MOV (SP)+,R1 

a 014174 000207 RTS PC 

84 


BE ere ee eae 


340 LOOPS MAXIMUM PERMITTED. 
;NOT DONE YET? 


;ECNRB ERROR 


MOV #1,-°SP) 
MOV SP ,RO 
TRAP CSPNTX 
ADD #4,SP 


CONTINUE OUTER LOOP. 


sERROR INDICATOR 


GIVE UP WITH THIS RECEPTION 


; AN ERROR WILL BE INDICATED. 
PUT CHARACTER RECEIVED INTO R4 


:1S THE CHARACTER A ''CAN'’ FROM THE PRINTER? 
THEN SET BIT15 IN ERWORD AND EXIT. 


31S THE CHARACTER AN ‘'EOT’' FROM THE PRINTER? 
71F NOT THEN EXIT WITH CHARACTER. 


;WE HAVE AN ERROR CONDITION. 
: OR NON-FATAL. 


RESTORE REGISTERS 


EITHER FATAL 


(CAN OR EOT) 


SEQ 66 


we 
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1 

2 

i 

; [FUNCTIONAL DESCRIPTION. 

. : GLOBAL PROCEDURE CONVRT: 

9 : THIS PROCEDURE CONVERTS A NUMBER CONTAINED IN REGISTER R1 INTO 
10 ; THREE ASCII BYTES WHICK ARE MNEMONIC ARGUMENTS ACCEPTABLE TO THE 
1 : LOP CONTROLLER. THE THREE BYTES ARE CONTAINED IN THE LOCATIONS: 
\2 ; MNEBI (MOST SIGNIFICANT BYTE), MNEB2, AND MNEB3 (LEAST SIGNIFICANT 
14 : : 

15 J Petree r een een e nen neem we wcwcenw ee wewnc er enowcenonconwocccccccccocce 
16 3 

4 s INPUTS 

19 RI . CONTAINS THE NUMBER TO BE CONVERTED INTO MNEMONIC FORM 
21 ‘OUTPUTS 

23 ; MNEB1 - HIGH ORDER BYTE MNEMONIC FROM VALUE IN RI. 
24 : MNEB2- MIDDLE BYTE MNEMONIC FROM VALUE IN R1. 

$? g MNEB3 = LOW ORDER BYTE MNEMONIC FROM VALUE IN R1. 

37 ‘SUBORDINATE ROUTINES 

29 : NONE 

30 3 

31 [FUNCTIONAL SIDE EFFECTS 

33 : REGISTERS ARE PRESERVED. 

35 : 

36 

33 

39 014176 010246 CONVRT: MOV R2,-(SP) ;SAVE REGISTERS 

40 014200 010346 MOV R3,-(SP) : 

42 014202 010102 MOV R1,R2 :GET COPY OF NUMBER TO BE CONVERTED. 
43 014204 043702 006430 BIC TMPLT1,R2 [MASK IN BITS 

44 014210 000302 SWAB sR “RIGHT JUSTIFY MASKED BITS 

46 014212 052702 000040 BIS #BITS,R2 :CONVERT TO THE ASCII VALUE 
47 014216 110237 010046 MOVB  R2,MNEB1 :STORE RESULT IN GLOBAL VARIABLE 

49 014222 010102 MOV R1,R2 :COPY OF ORIGINAL NUMBER 

50 o1e380 043702 006432 BIC TMPLT2,R2 MASK BITS 4 = 7, 

51 014230 006202 ASR R2 : RIGHT JUSTIFY 

52 014232 006202 ASR Re : BITS 4-7 

53 014234 006202 ASR R2 : INTO BIT POSITIONS 

3 014236 006202 ASR R2 ; 0-3. 

56 014240 052702 000040 BIS #BITS,R2 CONVERT TO THE ASCII VALUE 
57 014264 110237 010047 MOVB  R2, MNEB2 sSTORE RESULT IN GLOBAL VARIABLE 


| 
| 
| 


SEQ 67 
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58 

59 014250 010102 MOV 
60 014252 0463702 006434 BIC 
61 014256 956706 000040 BIS 
6¢ 014262 110237 010050 MOVB 
64 014266 012603 MOV 
2 014270 012602 MOV 
67 014272 000207 RTS 
68 

69 

70 

71 

Ze 

73 

74 ; 


} 
| 
75 ; 
76 
77 
78 


R1,R2 
TMPLT3,R2 
#B1TS,R2 
R2,MNEBS 


(SP)+,R3 
(SP)+,R2 


PC 


‘Ss ORIGINAL Tits 
ASK OUT wae 12 BIT 
;SET BIT 5. CONVERT TO ASCII VALUE 
;MOVE TO GLOBAL VARIABLE 


;RESTORE REGISTERS 


SEQ 68 


ccoCeoro- cr Cr OC0C10VCVO ee — ee eee eee 


GLOBAL AREAS 
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CONAOUEWN— 


WEWN (OC OONOUSWH-O” 


NONMIPIPONPON ss Ss Ss Ss Ss Ss 


50 014274 005037 007314 
3 010146 


304 
4306 010446 


316 001403 


1 
1310 032777 000200 172760 EMPTIB: BIT 
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“FUNCTIONAL DESCRIPTION 
GLOBAL PROCEDURE INITCD 


THIS ROUTINE IS USED TO INITIALIZE EACH TEST. 


THIS PROCEDURE 


WILL GUARANTEE THAT THE PRINTER BEING TESTED WILL BE INA 
TESTABLE CONDITION (IF THE INITCD ROUTINE SUCCEEDS IN PERFORMING 


IN ITS ENTIRETY). 


THIS CODE WILL SET UP THE INTERFACE DEVICE 
THE ROUTINE WILL RESET THE 


PRINTER TO ITS DEFAULT START-UP CONDITION, IT WILL SET THE RIBBON 
TO ITS DOWN POSITION, IT WILL SET THE HIT COUNT TO ONE HIT PER 
CHARACTER PRINTED, AND IT WILL SET THE UNDERLINE MODE OPTION TO 


“'NO-UNDERL INE". 
AND FOUR LINEFEEDS TO THE PRINTER TO AID IN THE READABILITY OF THE 
PRINT PATTERN. 


; USED TO COMMUNICATE WITH THE PRINTER. 


FINALLY, THIS ROUTINE WILL SEND A CARRIAGE RETURN 


‘INPUTS 

NONE 
SOUTPUTS 
NONE 


XMIT 
STATS 
GETCHR 
STSERR 


1) 
2) 
3) 
) 


ws 
~ 


INITCD: CLR 
MO 


BEQ 


SUBORDINATE ROUTINES 


FUNCTIONAL SIDE EFFECTS 


PRINTER 


SEND SEQUENCES TO THE PRINTER 

CHECK FOR ERROR’. ENTRYPOINT IN STSERR. 
GET A CHARACTE FROM THE PRINTER 

ADJUST THE STAIUS WORD VIA PRINTER QUERY 


STATUS IS DETERMINED. 


RIBBON POSITION IS SET DOWN. 

HIT COUNT IS SET TO 1. 

NO-UNDERLINE MODE IS SET. 

PRINT CARRIAGE RETURN AND FOUR LINEFEEDS. 


PGMCTR 


DOES NOT YET POINT TO PC OF ERROR 


R1,-(SP) ;SAVE REGISTERS 

R2,-(SP) : 

R3,~(SP) ; 

R4,-(SP) : 

#BiT7,aRCSR 71S THERE A CHARACTER IN THE RBUF? 
RESETC ;1F NO CHARACTER IN RBUF, THEN CONTINUE. 


SEQ 69 


.- -—-- . — 


SEQ 70 
‘GLOBAL AREAS MACRO V03.01 7-NOV-80 19:06:10 PAGE 18-1 
'GLOBAL SUBROUTINES SECTION 
59 014320 005777 172756 TST aRBUF sEMPTY RBUF. IGNORE BUFFER CONTENTS. 
60 014324 000771 5R EMPTIB sCHECK FOR RDONE AGAIN AND EMPTY BUFFER 
62 014326 012701 002214 RESETC: MOV #DUMMYS ,R1 sFIX INTERFACE TO ACCEPT PRINTER RESET. 
63 014 012702 000010 MOV #8. ,R2 : 
64 014336 005003 CLR R3 : 
65 014340 004737 012616 JSR PC,XMIT :SEND DUMMY SEQUENCE 
4 014344 005037 006500 CLR ERWORD sASSUME THAT NO ERRORS HAVE YET OCCURED. 
69 014350 012701 002224 MOV WRESET,R1 : TRANSMIT PRINTER RESET SEQUENCE (ADDRESS) 
70 014354 012702 000002 MOV #2,R2 +2 ARGUMENT LIST 
71 014360 005003 CLR R3 :NO BIDIRECTIONAL PRINTING NECESSARY 
te 014362 004737 012616 JSR PC, XMIT =SEND SEQUENCE TO PRINTER 
74 014366 004737 014012 JSR PC,GETCHR :READ ‘ESC’ CHR FROM RBUF 
75 014372 120437 006521 CMPB R4 ESCAPE sCHECK FOR CORRECT CHARACTER 
76 014376 001033 BNE INIERR s INDICATE ERROR IF NOT CORRECT. THEN CONTINUE 
78 014400 004737 014012 JSR PC,GETCHR sREAD STATUS CHR. SHOULD BE SPACE CHARACTER. 
79 014404 120427 000040 CMPB R4,#ZERO :SHOULD BE NO ERRORS - RIGHT FOUR BITS = 0000 
80 014410 001026 BNE INIERR :IF RIGHT FOUR BITS NONZERO, INDICATE ERROR. 
82 014412 004737 014012 JSR PC,GETCHR :READ 2ND STATUS NIBBLE. 
83 014416 120427 000040 CMPB R4,#ZERO :RIGHT FOUR BITS SHOULD BE 0000 
8% 014422 001021 BNE INIERR :1F NONZERO, INDICATE ERROR AND CONTINUE 
86 014424 004737 014012 JSR PC,GETCHR ;READ 3RD STATUS NIBBLE. 
87 014430 042704 000001 BIC #BITO,R4 sCLEAR THE SHEET FEEDER PRESENT BIT IF SET. 
88 014434 120427 000040 CMPB R4,#ZERO :1S STATUS NIBBLE = 0000 ? 
89 014440 001012 BNE INIERR [IF NOT, INDICATE ERROR AND CONTINUE 
91 014442 004737 014012 JSR PC,GETCHR :READ (HOPEFULLY) ‘'0'' FROM RBUF 
92 014446 120437 006532 CMPB R4,SC0 :CONFIRM THE CHARACTER IS A ‘'0"’. 
93 014452 901005 BNE INIERR :1F NOT = 'O'', THEN INDICATE ERROR, CONTINUE 
95 014454 004737 014012 JSR PC,GETCHR A CHARACTER IS EXPECTED FROM THE PRINTER 
96 014460 120437 006520 CMPB R4,XON YON IS THE EXPECTED CHARACTER 
44 014464 001413 BEQ SETUPI ‘IF YES, THEN SET UP THE PRINTER PARAMETERS 
99 014466 052737 010000 006500 INIERR: BIS #BIT12,ERWORD ;:IF NO, THEN INDICATE ERRORS: UCRB 
100 014474 052737 020000 006500 BIS #BIT13,ERWORD ; THEN INDICATE ERRORS: ECNRB 
101 014502 052737 100000 006500 BIS #B1T15,ERWORD THEN INDICATE ERRORS: ERROR FOUND BI) 
102 014510 004737 014774 JSR PC, STSERR ‘CHECK FOR MORE ERRORS 
104 014514 012700 000001 SETUPI: MOV #1,R0 
105 014520 112760 000040 002240 MOVB #ZERO,RIBPOS(RO) ;RIBBON POSITION DOWN 
106 014526 012701 002240 MOV #RIBPOS,R1 sADDRESS ut ARGUMENT LIST 
107 014532 012702 000003 MOV #3,R2 :3CHARACTERS IN ARGUMENT LIST 
108 014536 005003 CLR R3 [NC PRINTING 
108 014540 004737 012616 JSR PC,XMIT :SEND TO PRINTER 
111 014544 012700 000001 MOV #1,R0 
112 014550 112760 000040 002257 MOVB #ZERO,STHTCT(RO) ;SET HIT COUNT TO 1 HIT PER CHARACTER 
113 014556 012701 002257 MOV #@STHTCT,R1 sADDRESS OF ARGUMENT LIST 
114 014562 012702 000003 MOV #3,R2 sTHREE ARGUMENTS IN THE 
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014664 


014670 


014674 


014712 


014714 


014722 


014724 


ABAMPAMMAMNMANA an & BEES EEE SWWNANWWWWWIN NNN NNN ee 
WR $0 OD NAW EWN $0 ODNOM EWN 0 ODNAUE WN HO OODNAUE WN“ ODOONO" 


—— 2 
o 
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005003 
004737 


112760 


004737 


012701 


004737 
012701 


004737 
005037 


005037 


012705 


100374 


012604 


012601 


000207 


012616 
000040 
002266 
000003 
012616 


002313 
000002 


012616 


002314 
000001 


012616 
012616 
012616 


006502 


006504 


007000 
007000 
015224 


002266 


LODELY: 


R3 
PC, XMIT 


#ZERO,STULMD(RO) 
#STULMD ,R1 


R3 
PC,XMIT 
#CR,R1 
#2,R2 
R3 
PC,XMIT 


PC, XMIT 
CRNTPR 


DIRCTN 


#7000,R5 
#7000 ,R4 
PC DELAYS 
R4 


LODELY 
(SP)+,R4 
(SP)+,R3 


(SP)+,R2 
(SP)+,R1 


PC 


SEQ 71 


;NO PRINTING 
;SEND TO PRINTER 


43 UNDERLINE MODE 


PRINTING 
;SEND TO PRINTER 


ADDRESS OF CRLF TO BE PRINTED 
32 CHARACTERS TO BE PRINTED 
3NO BIDIRECTIONAL PRINTING 
;SEND TO PRINTER 


sADDRESS OF LINEFEED 

;PRINT THE SINGLE CHARACTER 
WITHOUT BIDIRECTIONAL PRINTING 
To TO PRINTER 


;AGAIN... 

;AND AGAIN... 

;CLEAR CURRENT COUNT WHICH IS USED IN 
sBIDIRECTIONAL PRINTING TO KEEP TRACK OF 


7; THE NUMBER OF CHARACTERS PRINTED CURRENTLY 
7 IN THE CURRENT DIRECTION. 


; INDICATOR THAT PRINTER IS PRINT:NG IN THE 
SFORWARD DIRECTION. (O=FORWARD, 1=REVERSE) 
THIS 1S TRUE AT THIS POINT BECAUSE THIS 
;ROUTINE RE-INITIALIZES THE PRINTER. 


;SET UP FOR A DELAY (ARG FOR DELAYS ROUTINE) 
;LOOP COUNTER 

;CAUSE A SHORT DELAY 

;LOOP COUNTER ADJUSTMENT 

;REPEAT UNTIL SUFFICIENT DELAY CAUSED. 


;RESTORE 


REGISTERS 
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NOT EXPLICITLY PASSED BY SOFTWARE. 


SEQ 72 


THE RANDOM NUMBER: RANGE 0 - 99 
THE ALGORITHM FOR THIS RANDOM 


R GENERATOR WAS SUPPLIED BY THE LOP DIAGNOSTIC ON THE 


FIRST SEED 
USED FOR RANDOM NUMBER GENERATION. 


WILL CONTAIN THE RANDOM NUMBER (0-99) 


SEED1 AND SEED2 WILL BOTH BE CHANGED SO THAT THE NEXT RANDOM NUMBER 


;RANDOM NUMBER GENERATOR 


; RANDOM NUMBER IS GENERATED FROM 

SEED1 AND SEED2. IF DESIRED, 

: THESE SEEDS MAY BE CHANGED USING A DYNAMIC 
[DEBUGGER OR RE-ASSEMBLY OF THE PROGRAM WITH 
(NOT RECCOMENDED) 

AL TERRED) 


;NEW SEED VALUES. 
7GET THE SEED1 VALUE (SLIGHTLY 
;ADD THE SECOND SEED VALUE 


;ROTATE CONTENTS SO THAT VALUE IS LOST 
VALUE IS CHANGED AGAIN 


;NOW A NEW SEED VALUE 
;AND A NEW SECOND SEED VALUE 
:BOTH FAIRLY UNRELATED 10. THE ORIGINAL SEEDS 


sMASK OUT THE LEFT NINE BITS 
; THE NUMBER NOW HAS A eteen: RANGE OF 0-127 
:1S THE NUMBER 0-99 


1 
2 ttt 
| ; sFUNCTIONAL DESCRIPTION 
| 5 : GLOBAL PROCEDURE RANDOM 
? : RANDOM NUMBER GENERATOR. 
2 ; WILL BE HELD IN REGISTER: R1. 
| 9 : NUME = 
1 ; PDP-8 WRITTEN BY BILLY CRAFT. 
| 12 Jeeeeeeeeneeen enn n en nn nn nn ------- 
13 ; 
14 : INPUTS 
15 ; 
16 ; SEED1 = 
: SEED2- SAME AS SEED1. 
19 “OUTPUTS 
20 ; 
21 : R1 - 
22 ; 
7 ; SUBORDINATE ROUTINES 
$ : NONE 
37 ; FUNCTIONAL SIDE EFFECTS 
29 
3 ; WILL BE DIFFERENT FROM THE ONE JUST COMPUTED. 
32 : CALLING SEQUENCE 
34 NO EXPLICIT PARAMETERS ARE PASSED. 
35 ; JSR PC,RANDOM 
36 ; 
27 : 
38 014726 000240 RANDOM: NOP 
40 014730 012701 000001 TRYAGN: MOV #1,R1 
41 -TWO SEEDS: 
42 
ta 
45 014734 063701 006424 ADD SEED1,R1 
46 014740 063701 006426 ADD SEED2,R1 
48 014744 006101 ROL R1 
49 014746 006101 ROL R1 “ROTATE AGAIN. 
51 014750 060137 006424 ADD R1,SEED1 
| 32 014754 010137 006426 MOV R1,SFED2 
54 
55 014760 042701 177600 BIC #177600,R1 
| 57 014764 022701 000143 CMP #99. ,R1 
L 


ees ern } Sin ee | 1 6 
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58 014770 100757 BMI ——-TRYAGN :NO? WELL TRY AGAIN. RANGE MUST BE 0-99. 
60 014772 000207 RTS PC 


SEQ 73 


aS 


SEQ 74 
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| 1 : 
| ; : 
4 [FUNCTIONAL DESCRIPTION 
$ : GLOBAL PROCEDURE STSERR: 
| g : THIS ROUTINE DOES TWO THINGS: IT REQUESTS STATUS FROM THE PRINTER AND 
9 : SETS UP THE ERROR FLAG - WORD (ERWORD). THE ENTRY POINT -STATS- MAY 
1 ; BE USED TO SKIP THE REQUEST STATUS CODE. 
12 Peewee nnn nnn nnn nn nnn nnn nn nn nn nnn nnn nnn nnn n nn nnn nn nnn nnn nnn n nnn en nn nee nner nne= 
13 ; 
‘3 ; INPUTS 
i$ ; ERWORD - SOME BITS MAY ALREADY BE SET, INDICATING ERRORS ALREADY 
18 OUTPUTS 
20 - ERWORD - THIS GLOBAL SYMBOL WILL INDICATE ALL COMPUTABLE ERRORS. 
22 ‘SUBORDINATE ROUTINES 
24 : SENCHR - USED TO TRANSMIT CHARACTERS TO THE PRINTER. 
25 : GETCHR - USED TO RECEIVE CHARACTERS FROM THE PRINTER. 
37 “FUNCTIONAL SIDE EFFECTS 
29 : THE GLOBAL SYMBOL ERWORD WILL REFLECT THE STATUS OF THE PRINTER. 
30 : REGISTERS ARE PRESERVED. 
32 [CALLING SEQUENCE 
34 : NO EXPLICIT PARAMETERS ARE PASSED TO THE ROUTINE. 
35 ; JSR PC, STSERR NORMAL ENTR 
36 : « STATUS REQUESTED FROM PRINTER 
37 : JSR PC, STATS ~ 2ND ENTRY POINT. THE STATUS 
38 : © IS CHECKED AS IS. 
39 3 
40 3 
; 
43 014774 113702 002210 STSERR: MOVB  STSRES,R2 :SEND "ESC O° TO THE PRINTER. 
44 015000 004737 013366 JSR PC, SENCHR : 
45 015 012700 000001 MOV #1.R0 
46 015010 116002 002210 MOVB  STSRES(RO).R2~ ; 
47 015014 004737 013366 JSR PC, SENCHR “REQUEST STATUS FROM PRINTER. 
49 015020 010446 STATS: MOV R4,-(SP) :PUSH REGISTERS 
50 015022 010346 MOV R3_-(SP) : 
52 015024 004737 014012 JSR PC,GETCHR :GET A CHARACTER FROM THE PRINTER. 
53 015030 120437 002315 CMPBsaRG STATUS “THE CHARACTER IN R4 SHOULD BE AN ESC CHARACTER 
34 015034 001057 BNE PALPHA SEXPECTED CHAR NOT RECVD, UNEXPECTED CHAR RCVD. 
56 015036 004737 014012 JSR PC,GETCHR GET N3 FROM PRINTER. FATAL ERRORS INDICATED. 
57 015042 043704 006434 BIC TMPLT3,.R4 [CLEAR LEFT 12 BIT 


a 


— —s —) — 
FARASLS3 


SEQ 75 
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58 015046 000304 SWAB RG :PUT BITS IN PROPER POSITION FOR ERWORD 
39 015050 050437 006500 BIS R4,ERWORD “SET THE ERROR BITS APPROPRIATE IN ERWORD. 
61 015054 004737 014012 JSR PC,GETCHR :GET N2 FROM PRINTER. NON-FATAL ERRORS FRM PRTR 
62 015060 043704 006434 BIC TMPLT3, RG ‘CLEAR THE LEFT 12 BITS. (NOT WANTED) 
63 015064 006304 ASL R4 : SH HIFT 
64 015066 006304 ASL R4 $ LEFT 
65 015070 006304 ASL R4 : FOU 
66 015072 304 ASL RG : POSITIONS. 
67 015074 050437 006500 BIS R4 ,ERWORD ‘AND SET THE APPROPRIATE BITS IN ERWORD. 
69 015100 004737 014012 JSR PC,GETCHR :GET ANOOTHER CHARACTER. N1. PRINTER CONDITION 
015104 043704 006434 BIC TMPLT3,R4 ‘CLEAR THE 12 LEFT UNWANTED BITS. 
71 015110 042704 000001 BIC #BITO,R4 “SHEET FEEDER PRESENT NOT A GENERAL ERROR. 
015114 042704 000004 BIC #BIT2.R4 ;NOT USED BY PRINT 
73 015120 042704 000010 BIC #BIT3.RG ‘NOT USED BY PRINTER 
2 015124 050437 006500 BIS R4,ERWORD ‘SET APPROPRIATE BITS IN ERWORD. 
ds 015130 042737 046400 006500 BIC #46400,ERWORD ;CLEAR BITS 14,11,10,8 (UNUSED BITS IN ERWORD) 
78 015136 005737 006500 TST ERWORD :1S THE ERWORD = 0 ? 
79 015142 001403 BEQ CRCLX ‘IF IT IS CONTINUE. 
80 015144 053737 100000 006500 BIS BITIS,ERWORD :IF IT ISN'T... INDICATE AN ERROR (GENERAL) 
4 ; BY SETTING BIT 15 IN THE ERROR WORD. 
83 015152 004737 014012 CRCLX: JSR PC GETCHR :HOPE TO GET A "'0"' 
84 015156 123704 006532 CMPB —s- SCOR ‘1S IT THE EXPECTED "0" ? 
85 015162 001415 EQ ShItSR ‘IF EQUAL TO EXPECTED CHAR ("'0''), THEN DONE. 
87 015164 052737 020000 006500 BIS #ECNRB,ERWORD ;SET ECNRB (''0'' NOT FOUND.) 
88 015172 000403 BR SET15 :SET ERROR INDICATOR AND EXIT. 
30 015174 052737 020000 006500 PALPHA: BIS WECNRB,ERWORD  ; EXPECTED CHARACTER NOT RECEIVED INDICATOR 
92 015202 052737 100000 006500 SET15: BIS #BIT15,ERWORD ; INDICATE THAT AN ERROR HAS OCCURRED. 
93 015210 012737 177777 002206 MOV #-1, GREASE ZENABLE A A "'GREASED' EXIT FROM THE CALLING 
95 015216 012603 EXITSR: MOV (SP)+,R3 ‘RESTORE REGISTERS. 
9% 015220 012604 MOV (SP) +. RQ : 
98 015222 000207 RTS PC 


Ps! : = tis te L ’ e | | SEQ 76 
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1 ; 

2 eeccce eeeeee eeeeseeoeeeeeeeeeee eeeeoeoeeee eeeeenre eeeeeeeeee eeeeeeeeeeeeeeeeeeeeeeane — 
i FUNCTIONAL DESCRIPTION 

3 : GLOBAL PROCEDURE DELAYS 

7 : THIS PROCEDURE ACCEPTS A NUMBER IN REGISTER RS AND CAUSES A DELAY OF 
8 : 100 MICROSECONDS X RS. THE VALUE AFTER CALLING OF THIS ROUTINE IN R5 
9 : WILL BE ZERO. 

10 $ 

11 ° eeeeeeeees eeeeoeeeees eeeeeoeoeeeeeeeeeeeenee eseeeee eeeneeeee ee eeeeoeeeeeeeeeeee eeeeoeeee#e#ee 
12 : 

7 : INPUTS 

13 : RS - CONTAINS THE NUMBER OF 100 USEC INCREMENTS DESIRED. 
17 :QUTPUTS 

18 ; 

3 NONE 

21 SUBORDINATE ROUTINES 

23 : NONE 

24 : ' 

25 :FUNCTIONAL SIDE EFFECTS 

37 : THE DELAY IS AT LEAST 0.103MSEC X RS 

29 [CALLING SEQUENCE 

31 : NO PARAMETERS. 

32 : JSR PC,DELAYS 

33 3 

34 : 

35 3 

36 3 

37 

: 

40 015224 012737 000025 010054 DELAYS: MOV #21. ,DELCNT :2.91USEC. - INNER LOOP INITIALIZATION 

42 015232 005337 010054 INLOOP: DEC DELCNT :2.385USEC. - 

43 : -TOTAL 4.77USEC. PER LOOP 

44 015236 100375 , BPL INLOOP 2. 385USEC. - 

45 : 0.103MSEC TO HERE 

46 015240 005305 DEC R5 “STARTS WITH # OF .1 MSEC INCREMENTS. 

47 015242 100370 BPL DELAYS “IF R1 WERE 10,000 THEN TIME DELAY IS 1 SECOND. 
49 015244 000207 RTS PC 








GLOBAL AREAS 
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wn 


eeeeeeeeeeeeeee 


SEQ 77 





GLOBAL AREAS 
GLOBAL SUBROUTINES SECTION 


"SO DOWNOAUEWN S$ ODONOUEWN— 


DOR) oe os a a a as 


43 015246 
‘ 015250 


4 
46 015252 
47 015260 


48 
4 015262 


N 6 
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010346 
010446 


032737 
001473 


162737 


100000 
000004 


000001 


000001 
007316 


006500 


007314 


006500 


TTI LLL LILLE LLL LLL LLL LLL LLL LLL LLL LLL 
jteteneceeeeeererere ERROR DECODE AND PRINT SUBROUTINE seeeeeererecerereceeeare 


; FUNCTIONAL DESCRIPTION 


INPUTS 


OUTPUTS 
_ ERWORD - 
IMPLICIT OUTPUTS 


ERRORS: 


NXTBIT: 


THIS PROCEDURE ACCEPTS ERWORD (THE ERROR FLAG-WORD) AS A PARAMETER, AND 
DECODES THE ERRORS WHICH HAVE OCCURRED. THE ROUTINE WILL PRINT THE 
ERROR MESSAGES ON THE CONSOLE TERMINAL. REGISTERS ARE PRESERVED. THE 
GLOBAL VARIABLES ERRTYP, ERRNBR, ERRMSG AND ERRBLK ARE USED AS IF THEY 
WERE LOCAL VARIABLES. IT IS ASSUMED THAT THESE VARIABLES ARE NOT USED 
ELSEWHERE IN THE MODULE. (THE FOUR GLOBAL VARIABLES WERE ASSIGNED BY 
THE DIAGNOSTIC SUPERVISOR MACRO CALL ERRTBL.) 


eeeeeee ee eeeee eee SFSeeesesFeseeeeeeeeeeeeseseeeeseeeeeeeeseee eeeeeeevee 


ERWORD = REFLECTS THE ERROR STATUS OF THE PRINTER. 
PGMCTR = PROGRAM COUNTER AT TIME OF CALL WHEN THE ERROR OCCURRED 
CLEARED AFTER EXECUTION OF ROUTINE 


THE ERROR TABLE IS CHANGED (ERRTBL). 
TO THE CONSOLE TERMINAL. 


ERROR MESSAGES ARE PRINTED. 


SUBORDINATE ROUTINES 


SUPERVISOR MACROS PRINTB,PRINTX,ERROR 


CALLING SEQUENCE 


JSR PC ERRORS 

MOV R3,-(SP) ;PUSH REGISTERS 

MOV R4,-(SP) ; 

BIT #BITIS,ERWORD ;1S ERROR FOUND BIT SET? 

BEQ EXTMCR :IF NOT SET, THEN EXIT THE SUBROUTINE. 

SUB #4 ,PGACTR zACCOUNT FOR AUTOINC OF PC WHEN PUSHED BY JSR 
CLR R3 ;LOOP COUNTER AND TABLE + | allel 

BIT #81T0,ERWORD 71S THE RIGHT-MOST BIT SET 

BEQ NXTERM ;1F NOT SET, THEN CHECK THE NEXT BIT. 

: ERRDF CALL = ERRTYP:1 

MOV #1, ERR USING THE ERRTBL SET UP BY THE 

MOV ERASGB CRS) ERRMSG sSUPERVISOR DEVICE FATAL MACRO CALL 


SEQ 78 
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28 015316 


oo 


60 
61 


WANS Ww 
Wwrnrm rr 
off nmr 


¥ 


62 


faleleleleleleleleleloloj~) 
DD De ed ed aed oe a 
Dares 
OoOfNoO 


6% 015374 
67 015400 


68 
69 015404 
70 
71 015410 
72 015412 


74 015416 


015442 


77 
78 015446 
015446 


82 015460 
015474 


015500 
015502 
015504 


SSSLSARA 


010337 
104460 


013746 


062706 
062703 
006237 


022703 


001330 
005037 


022737 
001010 


012746 


104444 


022737 
001010 


012746 
012746 
010600 
104414 
062706 


012604 
012603 


000207 


010074 


007314 
010230 
000002 


000006 
005250 


010302 
000002 


000006 


000002 
006500 
000034 


006500 
000001 


012316 
000001 


000004 


000001 


000004 


NXTERM: 


006512 


DCUPA: 


006512 EXTMCR: 


DDCUPA: 


MOV 
ERROR 


PRINTB 


PRINTX 


ADD 
ASR 


CMP 


BNE 
CLR 


CMP 
BNE 
PRINTB 


DOCLN 


CMP 
NE 
PRINTB 


MOV 
MOV 


RTS 


R3,ERRNBR 


#PRTBMO,PGMCTR 


#PRTXMO, TRXADD 


#2 ,R3 
ERWORD 
#28. ,R3 


NXTBIT 
ERWORD 


#1,FLTRDY 
DCUPA 
#FXRDYM 


#1,FLTRDY 
DDCUPA 
#FXRDYM 


(SP)+,R4 
(SP)+,R3 ; 


PC 


Seo 79 
sERROR NUMBER BEING CHECKED. 
“MACRO CALL - WITH ABOVE PARMS 
TRAP  CSERROR 
:PRINT BASIC ERROR MESSAGE AND PC 
MOV PGMCTR,-(SP) 
MOV #PRTBMO,-(SP) 
MOV #2,-(SP) 
MOV SP,RO 
TRAP C$PNTB 
ADD #6,SP 
:PRINT EXTENDED ERROR MESSAGE AND 
MOV TRXADD ,-(SP) 
MOV #PRTXMO,-(SP) 
MOV #2,-(SP) 
MOV SP_RO 
TRAP CSPNTX 


ADD 
ADDRESS OF TRANSMITTED STRING AND’ 
; THE ERROR FLAG-WORG. 


;POINT TO NEXT TABLE ENTRY. 
;GET NEXT BIT INTO POSITION. 


; DONE WITH ALL THIS WHEN R3 a. 28 AND 13 
BITS HAVE BEEN creche 
“REPEAT UNTIL 13 LOOPS COMPLETE. 
:SINCE WE ARE DONE, CLEAR THE ERROR FLAG-WORD. 


ae THERE A FAILURE TO FIND TRANSMIT-READY? 


NOT, DO CLEANUP 
;PRINT TO CONSOLE: FAILED TO TRANSMIT TO PRNTR 
MOV #FXRDYM,-(SP) 


MOV #1,-(SP) 
MOV SP.RO 
TRAP CS$PNTB 
ADD #4 ,SP 
TRAP C$DCLN 
MOV #FXRDYM,-(SP) 
MOV #1,-(SP) 
MOV SP RO 
’ TRAP CSPNTB 
ADD #4 ,SP 


;RESTORE REGISTERS 


ae Oe > 


———————_———————“- -- —_---- —— e——_ 


SEQ 80 
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91 : 
93 TTIIILLIILLIELLLL LLL LLL ddd ded edhddeldhbedededehed 


94 ; 


101 -TITLE MISCELLANEOUS SECTIONS 
102 -SBTIL REPORT CODING SECTION 


eo ere ——— 


IMISCELLANEOUS S$ 
IREPORT CODING S 


CoO CONOUEWNR— 


— 


ECTIONS MACRO VO3.01 7-NOV-80 10:06:10 PAGE 2¢ 
ECTION 
p++ 
; THE REPORT CODING SECTION CONTAINS THE 
; ‘PRINTS’ CALLS THAT GENERATE STATISTICAL REPORTS. 
BGNRPT 
LSRPT:: 
EX1i RPT 
000167 . WORD 
000000 . WORD 
.EVEN 
ENDRPT 
L10002: 
104425 TRAP 


-SBTTL PROTECTION TABLE 


ei ARE STS ESS earn Re acoA oes oe 


JSJMP 
L10002-2-. 


CSRPT 


SEQ 81 


pay — 7 
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/PROTECTION TABLE 


1 

2 p++ 

3 ; THIS TABLE IS USED BY THE RUNTIME SERVICES 

: ; TO PROTECT THE LOAD MEDIA. 

6 ° 

7 015514 BGNPROT 

5 015514 LSPROT:: 
9 015514 177777 -1 sOFFSET INTO P=TABLE FOR CSR ADDRESS 

10 015516 177777 -1 ;OFFSET INTO P-TABLE FOR MASSBUS ADDRESS 
) 015520 177777 -1 sOFFSET INTO P-TABLE FOR DRIVE NUMBER 
1? 015522 ENDPROT 

15 .SBTTL INITIALIZE SECTION 


SEQ 82 


SEQ 83 
MISCELLANEOUS SECTIONS MACRO V03.01 7-NOV-80 10:06:10 PAGE 26 
INITIALIZE SECTION 
1 
| 2 po4 
3 ; THE INITIALIZE SECTION CONTAINS THE CODING THAT IS PERFORMED 
: ; AT THE BEGINNING OF EACH PASS. 
6 
7 015522 BGNINIT 
P 015522 LSINIT:: 
9 , ) 
| Hs ee eee 
\¢ ; INLTFALIZE ROUTINE. 
14 : THIS CODE WILL ACT ON THE HARDWARE P-TABLE CONTENTS TO SET UP THE 
2 ; ~ SERIAL INTERFACE THAT THE PRINTER IS CONNECTED TO. 
17 [AAAAMAAARAAAAAAAAAAAAAAAARARARAAARARAAARARAAAARARARARARAARRARARRARAAAARARARA AA 
18 F 
19 015522 INITLZ: READEF #EF .CONTINUE 
015522 012700 000036 MOV #EF .CONTINUE ,RO 
015526 104447 TRAP CSREFG 
20 015530 BCOMPLETE JENDIN 
91 015530 103425 BCS JENDIN 
22 015532 READEF #EF.NEW 
015532 012700 000035 MOV #EF .NEW,RO 
015536 104447 TRAP CSREFG 
23 015540 BNCOMPLETE NEXTU 
- 015540 103003 BCC NE XTU 
25 : 
26 015542 012737 177777 002202 MOV #-1,LOGUNL i 
27 015550 005237 002202 NEXTU: INC LOGUNIT 
28 015554 023737 002202 002012 CMP LOGUNIT,LSUNIT 
29 015562 001407 BEQ ABORT 
30 015564 GPHARD LOGUNIT,PLCC 
015564 013700 002202 MOV LOGUNIT,RO 
015570 104442 TRAP C$GPHRD 
015572 010037 002204 MOV RO,PLOC 
31 015576 BNCOMPLETE NEXTU 
015576 103364 BCC NEXTU 
32 015600 000403 BR STRTUP 
33 015602 ABORT: DOCLN 
015602 104444 TRAP CSDCLN 
$s 015604 000137 016566 JENDIN: JMP ENDIN 
36 015610 STRTIUP: SETVEC #4, #UBTRAP,#PRIO7 :SET UP TRAP VECTOR FOR ILLEGAL ADDRE 
015610 012746 000340 MOV ppRio? -(SP) 
015614 012746 016572 MOV #UBTRAP,-(SP) 
015620 012746 000004 MOV #4 ,-(SP) 
015624 012746 000003 MOV #3,-(SP) 
015630 104437 TRAP CS$SVEC 
015632 062706 000010 ADD #10,SP 
37 ; TRAP... UNIBUS ERROR. 


38 
39 015636 005037 006500 CLR ERWORD ;ASSUME NO ERRORS 


—_—_—_—_ 
; 


es —_ 
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005037 


017701 
001137 


005037 
004737 
000137 


001011 
012746 


104444 
012700 
005300 
002407 


032777 
001403 


005777 
000767 


012702 
3 
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010056 
006512 
002206 


164322 


0 
010056 


012122 
000001 


000004 
000144 


000200 


171310 


006500 


002206 


002210 
000002 


012616 


100000 
006512 


010056 


NDATA 
FLTRDY 
GREASE 


aPLOC,R1 
SETUPC 


NDATA 
PC ,DFAULT 
LINCOD 


E 
#FAILOL 


#100. ,R0 

RO 

NONDTA 
#BIT7,aRCSR 
NONDTA 


@RBUF 
EMPTL2 


ERWORD 
NDATA 

FLTRDY 
GREASE 


#STSRES,R1 
#2,R2 
PC, XMIT 
#BiT15,ERWORD 
FLTRDY.#1 
PFM1 

NDATA, #1 
NONDT2 
#FALLOL 


;ASSUME NO UNIBUS ERRORS 


SEQ 84 


[ASSUME NO FAILURE TO FIND TRANSMIT RDY 


SASSUME NO PREVIOUS ERRORS 
‘7 CSR_ADDRESS 


F NOT ZERO, THEN SET UP INTERFACE ADDRESSES 


;CSR, LPR, TCR, 


RBUF F 
ASSUME NO UNIBUS ADDRESSING ERRORS YET. 


700 THE DEFAULT LOGIC & THEN THE LINE SIZE CODE 


:D0 LINE SIZE LOGIC 
; ASSUME 5 ee AOL. ADDRESSING ERRORS YET. 


;SET UP 

;ASSUME NO ERROR 

;NO DEVICE AT THAT a 
:NO PROBLEM WITH UNIBUS 

FAILED TO © IND Device MESSAGE 


EXIT TEST SEQUENCE 


#FAILDL,~(SP) 
#1,-(SP) 


CSDCLN 


;ASSUME NO MORE THAN 100 CHARACTERS IN BUFFER. 


[COUNT DOWN ONE FOR EACH CHARACTER 


;STOP TRYING TO EMPTY THE BUFFER. ASSUME HOPELESS. 


31S THERE A CHARACTER IN THE RBUF? 


;I1F NO CHARACTER IN RBUF, THEN CONTINUE. 


EMPTY RBUF. IGNORE BUFFER CONTENTS. 
;CHECK FOR RDONE AGAIN AND EMPTY BUFFER 


s;ASSUME NO ERRORS 
[ASSUME NO UNIBUS ERRORS 


;ASSUME NO FAILURE TO FIND TRANSMIT RDY 


:ASSUME NO PREVIOUS ERRORS. 


;ADDRESS OF REQUEST STATUS SEQUENCE 


[SEND ANSWER BACK SEQUENCE TO PRINTER. 


:EOT MAY HAVE OCCURED. IGNORE IT 
;FAIL_ TO FIND TRDY? 
PRINT FAILURE MESSAGE 


;ANY UNIBUS ERROR 
;1F SO, PRINT FAILURE MESSAGE. 


;PRINT FAILURE MESSAGE 


#FAILDL ,-(SP) 
#1,-(SP) 
SP RO 


‘MISCELLANEOUS SECTIONS 


So 
— 
o 
—_ 
oa 
™~m 


ee a et ae a a dd ad ed ad od 
CONAULSWN "CO OOn 


30 
016234 
36 


16246 
6252 
16254 


eee ee ee) 
Mrrnrrnrvorwnrnn — 
DDO VUVSLWN-Oo ~O 


0 
016 
0 
0 
0 
0 
0 


—_ — 2 
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104417 
062706 


104444 
004737 
120437 
001411 


012746 


062706 
104444 
004737 


004737 


000137 
012700 


100633 
001240 
005037 
004737 


005037 
023727 
001011 


012746 
012746 
010600 
104417 
062706 


104444 


032777 
001403 


005777 
000767 
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016456 


000002 
002204 


006500 
010056 


012220 
900001 


000004 


000144 


000200 


171010 


000001 


171012 


NONDT2: 


NONDT3: 


SETUPC: 


EMPTI3: 
EMPTZ3: 


DOCLN 


JSR 
CMPB 


BEQ 
PRINTF 


CLR 
CMP 
BNE 
PRINTF 


DOCLN 


MOV 
DEC 
BLT 


BIT 
BEQ 


TST 
BR 


PC ,GETCHR 
R4 ,ESCAPE 
NONDT3 
#FAILOL 


PC,GETCHR 
PC ,GETCHR 
PC ,GETCHR 
PC,GETCHR 


LINCOD 


CALLDF 
CALLOL 
NDATA 
PC,DZSET 
ERWORD 


E 
#FAILDZ 


#100. ,RO 
RO 
NONDZA 


- #BIT7,aRCSR 
NONDZA 


@RBUF 
EMPTZ3 


TRAP CSPNTF 

ADD #4 ,SP 
sEXIT TEST SEQUENCE 

TRAP CSOCLN 


;CHECK FOR A RESPONSE CHARACTER 
WAS THE CHARACTER AN ESCAPE CHARACTER? 
3;GET THE REST IF ESC FOUND. 
:PRINT FAILURE MESSAGE FOR DL SETUP. 
MOV WFAILDL,-(SP) 


MOV #1,-(SP) 
MOV SP,RO 
TRAP — CSPNTF 
ADD #4,SP 
sEXIT TEST SEQUENCE 
TRAP — C$DCLN 
:GET THE 2ND CHARACTER IN RESPONSE. 
: 4TH 
: STH AND FINAL RESPONSE CHARACTER. 


;AND THEN DO THE LINE SIZE LOGIC. 


;RESPONSE FROM PTABLE. 
;1F = 0 THEN MULTILINE. 
> INTERFACE. 


;IF = 1 THEN SINGLE LINE. 


: ASSUME NO ADDRESSING (UNIBUS) ERRORS YET. 
:IF = 0 THEN MULTILINE. 


2DZ_ (Y,N)? 
IF 1 THEN SINGLE LINE 


ASSUME NO ERRORS 

;NO DEVICE AT THAT ADDRESS? 
;NO PROBLEM WITH UNIBUS 
FAILED TO FIND bevice MESSAGE 


MOV MFAILDZ,-(SP) 
MOV #1,-(SP) 
MOV SP RO 
TRAP CSPNTF 
ADD #4,SP 
sEXIT TEST SEQUENCE 
TRAP CSOCLN 


;ASSUME NO MORE THAN 100 CHARACTERS IN BUFFER. 
;COUNT DOWN ONE FOR EACH CHARACTER 
:STOP TRYING TO EMPTY THE BUFFER. ASSUME HOPELESS. 


71S THERE A CHARACTER IN THE RBUF? 
71F NO CHARACTER IN RBUF, THEN CONTINUE. 


sEMPTY RBUF. IGNORE BUFFER CONTENTS. 
CHECK FOR RDONE AGAIN AND EMPTY BUFFER 


SEQ 85 


MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


130 
131 
132 
133 016274 
134 016300 
135 016304 
136 016310 
137 
138 016314 
139 016320 
140 016324 
141 016326 
142 016332 
143 016340 
i. : 016346 
146 016350 
ia 016356 
149 016360 
016360 
016364 
016370 
greet? 
016374 
150 016400 
016400 
151 
152 016402 
153 016406 
154 016412 
155 016414 
016414 
016420 
016424 
016426 
016430 
156 016434 
016434 
157 
158 016436 
159 016442 
160 016446 
161 016452 
162 
163 
164 
165 
166 
167 016456 
168 016462 
169 016466 
170 016470 
171 016474 
7 016476 
173 016504 
174 016506 


001404 
023727 
001011 


012746 


104444 
004737 
120437 
001411 


012746 


= 
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006500 NONDZA: CLR 
010056 CLR 
006512 CLR 
002206 CLR 
002210 MOV 
000002 MOV 
CLR 
012616 JSR 
100000 006500 BIC 
006512 000001 CMP 
BEQ 
010056 000001 CMP 
BNE 
PRTM2: PRINTF 
012220 
000001 
000004 
DOCLN 
014012 NONDZ2: JSR 
006521 CMPB 
BEQ 
PRINTF 
012220 
000001 
000004 
DOCLN 
014012 NONDZ3: JSR 
014012 JSR 
014012 JSR 
014012 JSR 
000006 LINCOD: MOV 
002204 ADD 
MOV 
000001 CMP 
BEQ 
000204 010042 + tg 
000120 010042 EIGHTY: MOV 


ERWORD 
NDATA 

FLTRDY 
GREASE 


#STSRES,R1 
#2,R2 


PC,XMIT 
#B1T15,ERWORD 
FLTRDY,#1 
PRTM2 


NDATA, #1 
NONDZ2 


#FAILDZ 


PC,GETCHR 
R4 ,ESCAPE 
NONDZ3 
#FAILDZ 


PC ,GETCHR 
PC ,GETCHR 
PC ,GETCHR 
PC ,GETCHR 


I 
#80. ,LINSIZ 


ASSUME NO ERRORS 
;ASSUME NO UNIBUS ERRORS 


R 
;ASSUME NO FAILURE TO FIND TRANSMIT RDY 


;ASSUME NO PREVIOUS ERRORS. 
;SEND REQUEST STATUS SEQUENCE. 


[SEND REQUEST STATUS SEQUENCE TO PRINTER. 


; IGNORE POSSIBLE EOT CONDITION. 
;FAILURE TO FIND TRDY? 
;PRINT FAILURE MESSAGE 


sANY UNIBUS ERRORS? 
:1F SO, PRINT FAILURE MESSAGE. 


;PRINT FAILURE MESSAGE 


EXIT TESTING SEQUENCE 


;CHECK FOR A RESPONSE CHARACTER 

;WAS THE CHARACTER AN ESCAPE CHARACTER? 
;GET THE REST IF ESC FOUND. 

;PRINT FAILURE MESSAGE FOR DL SETUP. 


oh area -(SP) 
#1,-(SP) 


C$DCLN 


“MOV #FAILDZ,-(SP) 
MOV #1,-(SP) 
MOV SP .RO 
TRAP — CSPNTF 
ADD #4,SP 
:EXIT TESTING SEQUENCE 
TRAP — CSDCLN 
:GET THE ND CHARACTER IN RESPONSE. 
: 4TH 
; STH AND FINAL RESPONSE CHARACTER. 
:RESPONSE FROM PTABLE. 2 CHARACTERS PER LINE? 
“GET THE LINE CHARACTER DENSITY. 1=80CHAR/LINE 


iL NOT = 
F EQ 1 an 80 CHAR/LINE 
[NOT EQ 1... THEN 132 CHAR/LINE 


sLINE SIZE IS EIGHTY CHARS/LINE 


1 THEN 132 —— PER LINE. 


SEQ 86 


MISCELLANEOUS SECTIONS 

INITIALIZE SECTION 
175 016514 013701 
176 016520 006301 
177 016522 006301 
178 016524 010137 
179 016530 006301 
4 016532 013 
182 016536 005037 
183 016542 


016542 012700 
016546 104436 


016550 032777 
016556 001403 


016560 005777 
000771 


ek es es td a ts 
Wr—Oo COON 

oO 

= 

o 

uw 

o 

&- 


016566 104432 
016570 000662 


oS 
SOOONOUN FS iw OO 


Nm 
™NM Ron 
oO WFwh— 
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010042 


010040 
010040 
006500 
000004 


000200 


170516 


170520 


SEQ 87 

INFIN: MOV LINSIZ,R1 ;GET THE LINE SIZE. NUMBER OF CHARACTERS/LINE 

ASL R1 x 2 

ASL R1 KG 

MOV R1,LINN sSAVE LINSIZ X 4 

ASL a x 

ADD R1,LINN sLINSIZ X (448) = LINSIZ X 12 => LINN 

CLR ERWORD ;ASSUME NO ERRORS - YET. 

CLRVEC #4 ;RESET VECTOR TO ORIGINAL STATUS 

MOV #4,R0 


TRAP C$CVEC 


EMPTY RECEIVER BUFFER... 
EMPTYR: BIT AD Tica 31S THERE A CHARACTER IN THE RBUF? 


BEQ ;I1F NO CHARACTER IN RBUF, THEN EXIT. 

TST aRBUF sEMPTY RBUF. IGNORE BUFFER CONTENTS. 

BR EMPTYR SS ore RDONE AGAIN AND EMPTY BUFFER 
. N * 


ENDIN: EXIT INIT 
TRAP CSEXIT 
«WORD 110004-. 


FUNCTIONAL DESCRIPTION 


: co FOR UNIBUS FAILURE TO FIND A DEVICE AT THE REFERENCED 
: ALL THAT IS NECESSARY IS TO INDICATE THAT THE TRAP ROUTINE HAS BEEN 
: ae Ma A DEVICE WAS UNSUCCESSFULLY ADDRESSED) AND RETURN FOR 


INPUTS 
NONE 
‘OUTPUTS 
; NDATA = IF THIS ROUTINE 1S PERFORMED, NDATA WILL BE SET. 
SUBORDINATE ROUTINES 
NONE 
CALLING SEQUENCE 
WHEN A TRAP OCCURS THE ROUTINE IS CALLED. 


BGNSRV UBTRAP ; TRAP SERVICE ROUTINE 
UBTRAP: : 


7 eins ‘be lpeLe< K 7 
|MISCELLANEOUS SECTIONS MACRO V03.01 7-NOV-80 10:06:10 PAGE 26-5 
en SECTION 
337 016572 012737 000001 010056 UBTRAP: MOV #1,NDATA :NO DEVICE AT THAT ADDRESS INDICATED. 
229 016600 ENDSRV 
016600 L10005: 
016600 000002 RTI 
230 
231 : 
232 3 
233 
234 : 
235 : 
236 ; 
237 ~ mmagsimmsedpbennsreateapianimipoineaaaeaiaascantct eatlanint iiii ataedk nliem iene, 
t+] FUNCTIONAL DESCRIPTION f 
240 ; LOCAL PROCEDURE DLSET . 
242 : THIS PROCEDURE WILL TAKE THE CSR ADDRESS GIVEN IN CSRADD AND SET UP ‘* 
7 ; THE ADDRESSES FOR THE RCSR, THE XCSR, AND THE RBUF AND XBUF REGISTERS.“ 
oH : THIS CODE IF FOR SINGLE LINE INTERFACES ONLY. 2 
247 + AAAAAAAAAAAAARAARAAAAARARARARARAAARARARARAAARARARAAAARAARARAAARAARAAARRAAARARA 
248 : 
249 3 
$20 : INPUTS 
$2¢ : CSRADD - ADDRESS OF CSR REGISTER. 
254 ‘OUTPUTS 
255 3 
256 3 NONE 
257 : 
$26 SUBORDINATE ROUTINES 
260 : NONE 
261 : 
43 FUNCTIONAL SIDE EFFECTS 
$e : INTERFACE REGISTERS ARE SET UP IF THE CSR ADDRESS IS VALID. 
266 TCALLING SEQUENCE 
268 : PLACE ADDRESS OF CSR REGISTER INTO CSR ADD. 
269 : JSR PC,OLSET 
270 3 
AD é; 
273 016602 017701 163376 DLSET: MOV @PLOC,R1 SET UP CSR ADDRESS & BUFFER ADDRESSES. 
sre 016606 010137 007276 MOV R1,RCSR sADDRESS OF RECEIVER CSR REGISTER. 
276 016612 062701 000002 ADD #2,R1 
277 016616 010137 007302 MOV R1, RBUF sADDRESS OF RECEIVER BUFFER REGISTER 
$8 016622 062701 000002 ADD #2,R1 , 
79 016626 010137 0073 MOV R1,XCSR ZADDRESS OF THE TRANSMITTER CSR REGISTER. 
280 016632 062701 000002 ADD #2,R1 
281 016636 010137 007304 MOV R1, XBUF SADDRESS OF THE TRANSMITTER BUFFER REGISTER. 





SEQ 88 


MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 


286 016654 
287 016662 


289 016670 


WAWAI NI &.. 
ee ed aed aed 
DONOUE Ww 


330 016672 
331 016676 
332 


333 
$e 16702 
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010052 
000200 010044 


006440 007306 
006440 007310 


163306 
007276 





Ll 7 
CLR MLTLIN ; INDICATE THAT THIS IS A SINGLE LINE INTERFACE. 
MOV #B1T7, TROYBT sPLACERENT OF XMIT READY BIT FOR SINGLE LINE 
MOV #JUNKPL,LPR ‘WHEN LPR IS STUFFED, CONTENTS GO TO JUNKPL 
MOV #JUNKPL,TCR ;WHEN SENCHR STUFFS TCR, CONTENTS GO TO JUNKPL 


RTS PC 


. 
° 
e AAAARAARRARARRARARARARARARARARARARARMARARARARARARARARARARARARARARARERARRPRARARARAR 


“FUNCTIONAL DESCRIPTION 
LOCAL PROCEDURE DZSET: 


: THIS ROUTINE WILL ACCEPT THE ADDRESS IN THE GLOBAL VARIABLE CSRADD 

: AND THEN SET UP THE VARIOUS MULTILINE INTERFACE REGISTERS ASSOCIATED 

: WITH THE D211 OPTION: CSR, RBUF, LPR, TCR, MSR (IGNORED), AND TDR. 

i 

; CSRADD - ADDRESS ASSUMED AS THE CSR REGISTER. 

‘OUTPUTS 

: NONE 

“SUBORDINATE ROUTINES 

; NONE 

“FUNCTIONAL SIDE EFFECTS 

: THE D211 INTERFACE ADDRESSES ARE SET UP IF THE CSR ADDRESS IS VALID. 

‘CALLING SEQUENCE 

: THE CSR ADDRESS MUST BE IN CSRADD. THE CALL: 

: JSR PC ,DZSET 

DISET: MOV @PLOC,R1 GET THE CSR ADDRESS TO SET UP INTERFACE REG'S 
MOV R1,RCSR ADDRESS OF RCSR AND: THE XCSR WILL BE THE SAME 

IN A bz. ate oyeoyet XMIT READY BIT ~ 

MOV R1,XCSR “AND POINT TO THE NEXT REGISTER ADDRESS 
ADD #2,R1 
MOV R1 .RBUF ADDRESS OF THE RECEIVER BUFFER 


MOV R1,LPR ADDRESS OF THE LINE PARAMETER REGISTER 


SEQ 89 





MISCELLANEOUS SECTIONS 
INITIALIZE SECTION 
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SEQ 90 


339 

340 016722 062701 000002 ADD #2,R1 

es) 016726 010137 007310 MOV R1,TCR sADDRESS OF THE TRANSMIT CONTROL REGISTER 
343 016732 062701 000002 \DD #2,R1 

ae 016736 010137 007312 MOV R1,TOR ZADDRESS OF THE TRANSMIT DATA REGISTER 
346 016742 013737 007312 007304 MOV TOR, XBUF ; WHEN REFERENCING THE XBUF, YOU WILL WANT 
oh ‘THE TDR - TRANSMIT DATA REGISTER. 

349 016750 012777 000040 170320 MOV #B1TS,aRCSR :CLEARS INTERUPT ENABLE BITS AND 

0 >SETS MASTER SCAN ENABLE. 

351 016756 012737 100000 010044 MOV #BITIS,TRDYBT :DEFINE TRANSMIT READY BIT FOR D211 CSR. 
353 016764 012700 000004 MOV #4 ,RO 

354 016770 063700 002204 ADD PLOC,RO :PTABLE ENTRY. 2DZ CHANNEL NUMBER? 

355 016774 011002 MOV (RO) ,R2 [CHANNEL TO BE SET INTO TR REGISTER 

356 016776 006302 ASL CHANGE THE RANGE FROM 0-7 TO 0-14 

357 TO BE USED AS A TABLE OFFSES. 

358 017000 016237 006444 006436 MOV TCRTBL(R2) , TCRENA :GET MASK FROM TABLE, PLACE IN TCR REG. 
359 TO DETERMINE THE CHANNEL CHOSEN 
360 017 12700 000004 MOV #4,R0 :PTABLE ENTRY 

361 017012 063700 002204 ADD PLOC,RO *PTABLE ENTRY ADDRESS FOR CHANNEL #. 

362 017016 051037 006442 BIS (RO), ,LPRINI ‘NEW LPR STATUS WITH CH # INCLUDED. 

363 017022 013777 006442 170256 MOV LPRINI,@LPR :SET UP LPR ON DZ INTERFACE 

365 017030 000207 RTS PC 
366 
367 
368 
369 
370 
371 
372 : 
373 4 ASST 
ere ; FUNCTIONAL DESCRIPTION 

$$ 3 LOCAL PROCEDURE DFAULT: 

378 : THIS CODE WILL COMPUTE THE CSR ADDRESS AND SET UP THE INTERFACE 
379 : REGISTER ADDRESSES. THE CSR ADDRESSES ARE CHECKED BY SENDING THE 
380 ; PRINTER AN ANSWER BACK’ QUERY AND CHECKING FOR THE APPROPRIATE 
381 : RESPONSE FROM THE PRINTER. 

382 ; , 
383 : + AAAARARARARARARAARARAARARARAARARARRAARARAARRARRRARARARAARARARARARRARARARRARRRAR 
384 3 

385 ; INPUTS 

386 3 

387 ; NONE 

388 

389 ‘OUTPUTS 

391 ; CSRADD ADDRESS OF THE CONTROL STATUS REGISTER 

92 : RBUF “BUFFER ADDRESS 

93 : XCSR “TRANSMITTER CSR 

94 : RCSR “RECEIVER CSR 

95 : XBUF “TRANSMITTER BUFFER ADDRESS 


ee 


4 
415 017032 
rit 017040 


419 017044 
420 017052 


422 017054 
424 017060 

017064 
426 017066 


428 017070 
429 017076 
430 


4 
452 017170 


013777 
004737 


023727 
001462 


005037 


012701 
012702 
005003 


004737 
042737 
0 


2 
23727 
001417 
005004 
004737 


120437 


005254 
016602 
010056 


006500 
000144 


000200 


170176 


006500 
010056 
006512 
002206 


002210 
000002 


Siecle 
100000 


010056 


014012 


006521 


163144 


000001 


170200 


006500 
000001 
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INITIALIZE SECTION 


: MLTLIN IS =1 IF THE INTERFACE IS A 0211. 
SUBORDINATE ROUTINES 
GETCHR =~ GET A CHARACTER 
xMIT = SEND A SEQUENCE OF CHARACTERS TO THE PRINTER. 


; FUNCTIONAL SIDE EFFECTS 

THE INTERFACE REGISTERS SHOULD BE SET UP. 
CALLING SEQUENCE 

JSR PC, DFAULT 


DFAULT: MOV DLDFLT,aPLOC ;ASSUME A SINGLE LINE INTERFACE 
JSR PC ,,DLSET ;SET UP THE REGISTER ADDRESSES 
CMP NDATA,#1 ;WAS THERE AN ILLEGAL ADDRESSING ERROR? 


BEQ DZDCOD ;IF SO, DL SETUP FAILED. TRY DZ SETUP. 


CLR ERWORD sASSUME THAT NO ERRORS HAVE BEEN FOUND - YET. 
EMPTI4: MOV #100. ,R0 ;ASSUME NO MORE THAN 100 CHARACTERS IN BUFFER. 
EMP4: DEC RO ;COUNT DOWN ONE FOR EACH CHARACTER 

BLT ABSND STOP TRYING TO EMPTY THE BUFFER. ASSUME HOPELESS. 

BIT #BIT7,aRCSR 31S THERE A CHARACTER IN THE RBUF? 

BEQ ABSND TIF NO CHARACTER IN RBUF, THEN CONTINUE... 

TST @RBUF sEMPTY RBUF. IGNORE BUFFER CONTENTS. 

BR EMP4 sCHECK FOR RDONE AGAIN AND EMPTY BUFFER 
ABSND: CLR ERWORD sASSUME NO ERRORS 

CLR NDATA ASSUME NO UNIBUS ERRORS 

CLR FLTRDY ASSUME NO FAILURE TO FIND TRANSMIT &DY 

CLR GREASE ASSUME NO PREVIOUS ERRORS. 

MOV #STSRES,R1 sSEND REQUEST STATUS SEQUENCE. 

MOV #2,R2 3 

CLR R3 3 

JSR PC, XMIT :SEND ANSWER-BACK SEQUENCE TO PRINTER. 

BIC #BITIS,ERWORD ;IGNORE POSSIBLE EOT INDICATION. 

CMP NDATA, #1 :1F SET THEN TRY MULTILINE “ppm 


BEQ DZDCOD ;1F NOT SET, DO THE DZ CHECK 


CLR R4 ;BR4 SHOULD GET ESCAPE CHAR IF DL PRESENT. 
JSR PC,GETCHR ;THE DELAY SHOULD BE LONG ENOUGH TO PERMIT 
;THE PRINTER TO RESP OND. 
INOW GET THE FIVE RESPONSE D stieanitie 


R4 ESCAPE 71S IT AN ESCAPE CHARACTER? 


SEQ 91 


SEQ 92 


a= 


453 017174 
454 017176 


465 017240 
466 017246 
467 


468 017252 
469 017260 
470 


471 

472 017262 
473 017264 
474 

475 017270 
476 017274 
rie 017276 


478 
479 017300 
480 017306 


481 

482 017310 
483 017314 
484 

485 017316 
4 3 


494 017354 


495 
196 017362 
497 017370 


498 
499 017372 


ww 
Sxscs 
wn — 
ooooooeo 
td ed od od ed ed 


Savsore 


000514 
005037 


005037 


013777 
004737 


023727 
001462 
005003 
005037 
012700 
005300 
002407 


032777 
001403 


005777 
000767 


005037 
005037 
005037 
005037 


012701 


023727 
001416 


004737 


120437 


003306 


005256 
016672 


010056 


006500 
000144 


000200 


167766 


006500 


002206 


002210 
000002 


012616 
100000 


010056 


014012 


162736 


000001 


167770 


006500 
000001 


DZDCOD: 


EMPTIS: 
FMPS: 


ABSS: 
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INITIALIZE SECTION 


DZ0COD 
PC,GETCHR 
PC,GETCHR 
PC ,GETCHR 
PC,GETCHR 
DONEDF 


ERWORD 
NDATA 

FLTRDY 
GREASE 


DZDFLT,@PLOC 


PC,DZSET 


NDATA,#1 
FAILDF 


R3 

ERWORD 
#100. ,R0 
RO 

ABS5 
#B1T7,@RCSR 
ABS5 

@RBUF 

EMP5 

ERWORD 


GREASE 
#STSRES,R1 
#2,R2 


PC, XMIT 
#B1T15,ERWORD 


NDATA,#1 
FAILDOF 


PC ,GETCHR 
R4 ESCAPE 
FAILDF 

PC,GETCHR 


PC.GETCHR 
DONE DF 


;NO? THEN TRY DZ ADDRESS DEFAULT. 


[THE FINAL CHARACTER SHOULD BE A ‘'C"’ 
:YES? THEN SUCCESSFULLY COMPLETED. 


sASSUME NO ERRORS 

;ASSUME NO UNIBUS ERRORS 

ASSUME NO FAILURE TO FIND TRANSMIT RDY 
;ASSUME NO PREVIOUS ERRORS. 


;ASSUME A DZ INTERFACE AT ADDRESS 776010 
;SET UP REGISTERS FOR A D211 INTERFACE 


;HAS AN ILLEGAL ADDRESS ERROR OCCURRED? 
;1F SO, BOTH DL AND DZ DEAFUALTS HAVE FAILED. 
H SO LET USER KNOW. 


;DISABLE BIDIRECTIONAL PRINTING LOGIC 
;ASSUME NO ERRORS HAVE YET OCCURRED. 


;ASSUME NO MORE THAN 100 CHARACTERS IN BUFFER. 
;COUNT DOWN ONE FOR EACH CHARACTE 


R 
STOP TRYING TO EMPTY THE BUFFER. ASSUME HOPELESS. 


31S THERE A CHARACTER IN THE RBUF? 
:1F NO CHARACTER IN RBUF, THEN CONTINUE... 


EMPTY RBUF. IGNORE BUFFER CONTENTS. 
CHECK FOR RDONE AGAIN AND EMPTY BUFFER 


;ASSUME NO ERRORS 

ASSUME NO UNIBUS ERRORS 

ASSUME NO FAILURE TO FIND TRANSMIT RDY 
;ASSUME NO PREVIOUS ERRORS. 


; SEND REQ STATUS SEQUENCE. 


{SEND REQ STATUS SEQUENCE TO PRINTER. 
; IGNORE POSSIBLE EOT INDICATION. 


;CHECK FOR OCCURRANCE OF TRAP 
;1F SET THEN PRINT AN ERROR AND START OVER 


sDELAY SHOULD GIVE PRINTEWR ENOUGH TIME TO 
;RESPOND TO ANSWER-BACK SEGUENCE. 


:GET THE FIVE CHARACTER RESPONSE TO THE QUERY 
TEXPECTING ESCAPE CHARACTER IF DZ PRESENT. 
;DEF AULT ADDRESSES DIDN'T WORK OUT. 


LAST CHARACTER A "'C'(LOWER CASE) 
“FOUND THE ADDRESS. EXIT. 


po ee 


MISC 


ANEOUS SE 
j Unit if 


ELL 
IALIZE SECTI 
510 
511 


017452 
017452 
017452 


526 
527 017454 
017454 


017454 


CTIONS 
ON 


000207 


104411 


104461 
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011602 
00000! 


000004 


FAILDF: 


DONEDF : 


-SBTTL 


-SBTTL 


PRINTF #°AILM 
DOCLN 

RTS PC 

-EVEN 

ENDINIT 

AUTODROP SECTION 


BGNAUTO 


ENDAUTO 


CLEANUP CODING SECTION 


;PRINT FAILURE MESSAGE AT vrata ** 


sEXIT TESTING SEQUNCE 


TRAP 


TRAP 


#FAILM,-(SP) 
#1,-(SP) 
SPR 

CSPNTF 

#4 ,SP 
CSOCLN 


CSINIT 


C$AUTO 


SEQ 93 


SEQ 94 
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CLEANUP CODING SECTION 


| 
| 
| 


1 

2 3e9 

3 ; THE CLEANUP CODING SECTION CONTAINS THE CODING THAT IS PERFORMED 
: ; AFTER THE HARDWARE TESTS HAVE BEEN PERFORMED. 

6 . 

7 017456 BGNCLN 

8 017456 LSCLEAN: : 
10 017456 004737 014274 JSR PC, INIICD RESET THE PRINTER 

11 017462 EXIT CLN 


-EVEN 


017466 ENDCLN 
017466 L10007: 
017466 104412 TRAP CS$CLEAN 


ad at od ot td 
Ou wr 


-EVEN 


-TITLE HARDWARE TESTS 
-SBTTL TEST 1: PRINTER SELF TEST 


MmMNNn —— = 
WN) —O OO~n 


| 
017462 104432 TRAP CSEXIT 
017464 000002 «WORD = 110007-. 


ee Se 
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‘TEST 1: 


1 
2 
3 
4 


MMM —wronrfnropnrr 
ODONAOUSWNR— 


PRINTER SELF TEST 


017470 
017470 


017604 
017604 
017604 


004737 


012746 
012746 


004737 


023727 
001402 


004737 
004737 


052737 
004737 


104401 


014274 
002333 
000001 


000004 
002255 
000002 
012616 
002206 
015020 
015246 


014012 
006520 


020000 
100000 


015246 


177777 


006500 
006500 


BGNTST 


Tis: 


CCPC CTE 


PRNTIT: 


CHKN6: 


STSCAL: 


TEST #1 


THIS TEST WILL INITIATE THE PRINTER SELF-TEST. 
THE PRINTER SENDS THE PRINTER STATUS AND AN XON CHARACTER 
THE PRINTER STATUS IS THEN 


1S COMPLETE, 
IF EVERYTHING HAS OPERATED PROPERLY. 


EXAMINED AND APPROPRIATE ERROR REPORTING IS INITIATED. 


JSR 
Pp 


JSR 


ENDTST 


#SLFTST,R1 
2,R2 


R3_ 
PC, XMIT 


GREASE ,#-1 
PRNTIT 


PC,STATS 
PC ERRORS 


PC ,GETCHR 
XON,R4 


STSCAL 
#B1T13,ERWORD 
#B1T15,ERWORD 
PC,ERRORS 


;WAS THERE A 


INITIALIZE FOR THIS TEST 
;CONSOLE TEST TITLE 


AD 
;ADDRESS OF SELT TEST ARGUMENT SEQUENCE 
:2 CHARACTERS IN SEQUENCE 
:DISABLE BIDIRECTIONAL PRINTING 
;SEND THE ARGUMENT LIST 


A ‘'GREASED'' EXIT FROM XMIT? 
ilF SO, PREPARE TO PRINT TO CONSOLE 


SCSERHSSCSE TVET SCR HSCHASHS SSSA SFSRSHSKFSESCESSC KEE SHESCHESSHSCCHSEAASCESCEPCSAHAECOCHEASSEECREACEESRESCRSLES 


AFTER THE SELF-TEST 


#1,-(SP) 


THE ERRORS FOUND DURING XMIT ATTEMPT. 


“RECEIVE STATUS AND FIT TO ER 


WORD. 
;DECODE ERROR WORD & PRINT ERROR MESSAGES 


er CHARACTER 

:1F OK, (XON FOUND) THEN CHECK STATUS 
SET ECNRB 

; INDICATE ERROR 


;CHECK FOR ERRORS 


L10010: 
TRAP 


CSETST 


SEQ 95 


SEQ 96 
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TEST 1: PRINTER SELF TEST 


52 ~-SBTTL TEST 2: UNDERLINE / NO-UNDERLINE MODE TEST 


I aievtssveissatccoden-pieraubmegsettdls hac tie sabeinaiieih lise. sieeg= en Aiea ieee 
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TEST 2: 


DWDONAUSWN OOOO FwWwr-— 


ee 


42 
43 
44 


47 
48 


4S 


50 017776 


51 


UNDERLINE / 


017606 
017606 


017606 


017626 
HA ays 


0 
017662 
017670 


So 
—_ 
~ 
“ 
~m 
™ 
-—o 
N= 
oa 
o 
~m 
N 


017746 
017754 


017770 
017774 


SxS 


020002 


004737 
012746 


042737 
012704 


sos =S3=s 
Fron wwonrn— 


2 


NO-UNDERLINE MODE T 


014274 
002366 
000001 
000004 
040000 


000053 


012616 
040000 


177777 
006531 
000001 


012616 
015246 


2700 000001 


002266 


760 000040 
05 


700 000001 
760 000041 


015246 


04 
37 010042 
34 


006500 


006500 


000041 
002266 


002266 


BGNTST 


CPE PE EPEC EE EE EEE EEE EE EEE EEE EE EEE EEE Eee 


SCSSCSOSSESSEE STC SHSSEHRSSSRSEHCHCKPHSCC SAC SSCSHSGCSECFC SCC SSESCSSCESCSSSESSCSCHSCTCHE CSCS ECHESSTSEHSEBHSCE ES 


PLOOP: 


SE TONE : 


NEWMOD : 


TEST #2 


T2z: 


UNDERLINE / NO-UNDERLINE MODE 


PRINT A SINGLE LINE OF ALTERNATING UNDERLINED AND NON-UNDERLINED 
"A'S, CHECKING FOR ERRORS FROM THE PRINTER ALONG THE WAY. 


JSR 


PC, INITCD 


PRINTB #TITLE2 


#B1T14,ERWORD 


#TITLE2,R1 
#4,R1 

#43, ,R2 
R3 


PC, XMIT 
#B1T14,ERWORD 


#-1,R4 
asc R1 


1,Re 


Rc, XMIT 
PC ERRORS 


#1,RO 
STULMD(RO) ,#ONE ; 
SE TONE 
BZERO, STULMD(RO)™ 
NEWMOD 


#1,R0 
#WONE , STULMD (RO) 


aw RI 
PC, XMIT 
PC ERRORS 


R4 
R4,LINSIZ 
PLOOP 


INITIALIZE TEST 
;CONSOLE PRINT TITLE 


; INHIBIT ERROR HANG-UPS 


;ADDRESS OF STRING TO PRINT (TITLE) 


:SKIP FIRST FOUR CHARACTERS 


743 CHARACTERS TO PRINT IN STRING 


DISABLE BIDIRECTIONAL 
7SEND THE ARGUMENT SEQUENCE 
[RE-ENABLE ERROR HANG-UPS 


; CHARACTER COUNT 


; ADDRESS OF ASCII ‘‘A" 
;ONE CHARACTER 

3NO BIDIRECTIONAL PRINTING 
;SEND ‘‘A'’ TO PRINTER FOR PRINTING. 


: CHECK FOR ERRORS 


Bi y UNDERLINE MODE SET? 


THEN CHANGE TO UNDERLINE MODE 
MES. THEN CHANGE TO NON-UNDERLINE MODE 


; TRANSMIT MODE CHANGE AT NEWMOD 


;CHANGE TO UNDERLINE MODE 


ADDRESS OF ARGUMENT STRING 
;WHICH IS THREE CHARACTERS LOONG 
;SEND THE SEQUENCE 

;CHECK FOR ERRORS 


;UPDATE COUNT OF CHARACTERS. 
;PRINTED A LINE YET? 
:D0 LOOP UNTIL DONE. 


eT ct 


SEQ 97 
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TEST 2: UNDERLINE / NO-UNDERLINE MODE TEST 


020004 


PNA ASIYIVT 
ONAOUEWI 
oO 
Nm 
o 
So 
_ 

y 


020024 
020624 
020024 


020020 


012701 


004737 


104401 


002313 


015246 


- SBTTL 


sADDRESS OF <CRLF> 


MOV #2,R2 :BOTH CHARACTERS 

JSR PC,XMIT ;PRINT (ACCUMULATE) <CR><LF> 
JSR PC, ERRORS ;CHECK FOR ERRORS. 

ENDTST 


TEST 3: HAMMER HIT COUNT TEST 


L10011: 


TRAP 


CSETST 


SEQ 98 


SEQ 99 
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TEST 3: HAMMER HIT COUNT TEST 
1 
2 
3 
4 
5 
$ 
8 020026 BGNTST 
; 020026 13:: 
10 
11 
12 SUUUCUUC CCC UUU OCT OPCUPCUCC CCE EC CUP CE CeCe eee ere er eee eee eee eee en eee eee eenegeegngy 
13 : 
14 : 
+ : TEST #3 
v : HAMMER HIT COUNT TEST 
19 ; FOUR LINES ARE TRANSMITTED TO THE PRINTER. THE HIT COUNT 
20 ; RANGES FROM 0 TO 3 HITS PER CHARACTER TRANSMITTED. ONE BLANK 
21 ; LINE AND THREE NON-BLANK LINES OF INCREASING DARKNESS SHOULD 
se ; BE EVIDENT ON THE PRINT PATTERN. 
24 Pere rrr TTT TTT Tre TTT TT TT Te TT TTT TTT Th 
se 
27 020026 004737 014274 TEST3: JSR PC, INITCD sINITIALIZE TEST 
28 020032 PRINTB #TITLE3 =CONSOLE PRINT TEST TITLE 
020032 012746 002446 MOV Ata EE -(SP) 
020036 012746 000001 MOV #1,-(SP) 
020042 010600 MOV SP.RO 
020044 104414 TRAP CS$PNTB 
- 020046 062706 000004 ADD #4,SP 
30 020052 052737 040000 006500 BIS #B1T14,ERWORD :DISABLE ERROR HANGUPS 
31 020060 012701 002446 MOV #TITLES,R1 sTITLE ADDRESS 
32 020064 062701 000004 ADD #4,R1 *SKIPPING THE FIRST FOUR TWO CHARACTERS. 
33 020070 012702 000040 MOV #32. ,R2 :32 CHARACTERS LONG 
34 020074 005003 CLR R3 :NO BIDIRECTIONAL PRINTING 
35 020076 004737 012616 JSR PC, XMIT :PRINT TEST TITLE 
3 020102 042737 040000 006500 BIC #B1T14,ERWORD ‘RE-ENABLE ERROR HANG-UPS 
020110 113737 006533 006522 MOVB $C1,SNGCHR : THE CHARACTER '1'' TO BE PRINTED 
39 020116 112737 000040 010060 MOVB #ZERO,HITARG SHIT COUNT ARGUMENT 
40 020124 012700 000001 LINLOO: MOV #i,R 
41 020130 113760 010069 002257 MOVB  ——HITARG, STHTCT(RO) INSERT IN ARGUMENT TEMPLATE 
42 020136 005237 010060 INC HITARG NEW ARGUMENT FOR HITARG 
43 020142 012701 002257 MOV #STHTCT,R1 ADDRESS OF ARGUMENT LIST 
44 020146 012702 000003 MOV #3,R2 *3 CHARACTER ARGUMENT LIST 
45 020152 005003 CLR R3 ‘DISABLE BIDIRECTIONAL PRINTING FOR NOW. 
46 020154 004737 012616 JSR PC, XMIT *SEND THE LIST - ADJUST HIT COUNT 
0201 004737 015246 JSR PC, ERRORS [CHECK FOR ERRORS. 
49 020164 005004 CLR R4 sCOUNT OF CHARACTERS 
50 020166 012701 006522 CHRLOO: MOV #SNGCHR,R1 “ADDRESS OF CHAR TO BE PRINTED 
51 020172 012702 000001 MOV #1,R2 SINGLE CHARACTER 


|HARDWARE TESTS 


TEST 3: 


Pe 


HAMMER 


52 020176 
53 020202 
28 020206 
56 02021 f 
57 020214 

rs 020220 


60 020222 
61 020226 
62 020234 


63 
64 020236 


70 020266 
71 


72 020272 
020272 
020272 
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HIT COUNT TES 


012703 
004737 
004737 
005204 
Renae 

001362 


005237 
123727 
001333 


012700 


004737 


104401 


177777 
012616 
015246 


010042 


006522 
010060 


000001 
000003 


012616 
015246 


000043 


002257 


-SBTTL 


ENDTST 


TEST 4: 


PC ERRORS 


RG 
R4,LINSIZ 
CHRLOO 


SNGCHR 
HITARG,#THREE 


LINLOO 


#STHTCT 
#3,R2 

R3 

PC, XMIT 
PC,ERRORS 


#1,R0 
oa TE A aaa 


; ENABLE gee HBL ee PRINTING. 
;SEND THE CHARACTER 
:CHECK FOR ERRORS. 


; UPDATE NUMBER won san PRINTED THUS FAR. 
;SENT A LINES WO YET? 
NO, CONTINUE SEND ING. 


; INCREASE ASCII PATTERNTO NEXT CHARACTER 
SPRINTED THE HIT COUNT = 3 LINE YET 
;REPEAT PRINTING LINES UNTIL HIT COUNT = 3 


;REVERT BACK TO HIT COUNT OF 1 


DISABLE BIDIRECTIONAL PRINTING 
SEND PRINTER ARGUMENT LIST FOR HIT COUNT=1 
;CHECK FOR ERRORS 


110012: 


TRAP CSETST 


CARRIAGE POSITIONING TEST 


SEQ 100 
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‘TEST 4: CARRIAGE POSITIONING TEST 


SEQ 101 


1 
: 
4 020274 BGNTST 
5 020274 T4é:: 
é 
7 SUE STRUT LETTUCE U eee eee eee eee eee eee eee ies 
8 : 
16 ; TEST #4 
4 : CARRIAGE POSITIONING TEST 
13 : IN THIS TEST THE PRINTER CARRIAGE WILL SE EXERCISED BY MOVING 
14 ; THE CARRIAGE BACK AND FORTH INCREASING AMOUNTS FROM THE MINIMUM 
15 3 HORIZONTAL INCREMENT OF MOVEMENT TO THE ig (PAGE SIZE) HORIZONTAL 
16 é INCREMENT OF MOVEMENT. IN THE PROCESS, ANY ERRORS DETECTED BY THE 
+ 3 PRINTER WILL BE IDENTIFIED AND REPORTED. 
19 a SO Re Ee ee Ie ee Oe ee Ne 
20 
21 
22 
5 
25 020274 004737 014274 TEST4: JSR PC, INITCD ; INITIALIZE TEST 
26 020300 PRINTB #TITLE4S ;CONSOLE PRINT THE TEST TITLE 
020300 012746 002513 MOV #TITLE4,-(SP) 
020304 012746 000001 MOV #1 ,-(SP) 
020310 010600 MOV SP-RO 
020312 104414 TRAP — CSPNTB 
020314 062706 000004 ADD #4,SP 
28 020320 052737 040000 006500 BIS #BIT14,ERWORD  ; INHIBIT ERROR HANG-UPS 
29 020326 012701 002513 MOV #TITLE4,R1 S ADDRESS OF TITLE #4 TO BE —— 
30 020332 062701 000004 ADD #4,R1 ;SKIP FIRST FOUR CHARACTERS 
31 0203 012702 000044 MOV #36. ,R2 +36 CHARACTERS IN THE TITLE 
32 020342 005003 CLR R3 [DISABLE BIDIRECTIONAL PRINTING 
33 020 004737 012616 JSR PC, XMIT : TRANSMIT THE STRING TO THE PRINTER 
$4 020350 042737 040000 006500 BIC #BITI4,ERWORD :RE-ENABLE ERROR HANG-UPS 
36 020356 012701 00653 MOV #SCxX,R1 :ADDRESS OF THE SINGLE a “Ty 
37 020362 012702 000001 MOV #1 ,R2 iSINGLE CHARACTER TO BE PRINTED 
38 020366 004737 012616 JSR PC,XMIT PRINT THE CHARACTER ‘‘A’’. 
39 020372 004737 015246 JSR PC ‘ERRORS [CHECK FOR ERRORS. 
41 020376 012701 002313 MOV #CR,R1 sADDRESS OF CARRIAGE RETURN ASCII 
42 020402 012702 000002 MOV 2,R2 :TWO CHARACTERS INCLUDE <CR> & <LF>. 
020406 004737 012616 JSR PC, XMIT :SEND <CR><LF> TO PRINTER 
44 0204612 004737 015246 JSR PC,ERRORS ;CHECK FOR ERRORS 
46 020416 012737 000001 010036 mov #1,SPCSI2Z s INITIALIZE THE SPACE SIZE TO ITS SMALLEST 
48 020424 013701 010036 LILOOP: MOV SPCSIZ,R1 :R1 HAS SPACE SIZE FOR THE CONVERSION ROUTINE 
020430 162701 000014 SUB #12. ,Ri [TAKE AWAY THE 12 HORIZONTAL INCREMENTS 
50 ; PRODUCED BY THE PRINT OF THE CHARACTER. 
51 020434 004737 014176 JSR PC, CONVRT :CONVERT R1 TO THREE ASCII MNEMONICS (BYTES) 





—— 
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TEST 4: CARRIAGE POSITIONING TEST 


020532 
020536 
020542 
020546 


020576 
0604 


—_ 
_ 

os 
ss 


Sos =s 
~ 


004737 


012701 
012702 
004737 
004737 
006337 
023737 
100707 


104401 


000001 
010046 


010047 
010050 
006530 


015246 
002233 


015246 
006530 


015246 
002313 


015246 


010036 
010036 


002233 
002233 
002233 


010040 


ENDTS* 


~ SBTTL 


#1,RO 3 
HWEBT  MRZTLS.RO) 


me tppacie nee 
MNEB3,HRZTLS(RO) 
#SCX,R1 

é 


1,R2 
PC; XMIT 
PC ERRORS 


ry Saige oR 


PC, XMIT 
PC, ERRORS 


#SCX,RI 
# Re 
PC. 

PC. ERRORS 


#CR,R1 
#2,R2 

PC, XMIT 
PC,ERRORS 


SPCSIZ 
SPCSIZ,LINN 
L1LOOP 


TEST 5: PAPER POSITIONING TEST 


INTER 


“LENGTH OF STRING TO BE SENT = 
SEN E PR 
‘CHECK FOR ERRORS 


L10013: 


sFIRST BYTE FROM CONVERT ROUTINE 
;SECOND BYTE 
;THIRD BYTE 
;ADDRESS OF THE CHARACTER ‘'x"’ 


Ve 


OK. 


sADDRESS OF TAB SEQUENCE JUST COMPUTED. 
; THERE ARE 5 CHARACTERS IN THE SEQUENCE 
:SEND THE LIST TO THE PRINTER 
CHECK FOR ERRORS 


sADDRESS OF ‘'x"’ 
a ee CHARACTER 


; CHECK FOR ERRORS 


sADDRESS OF <CR><LF> 
;TWO CHARACTERS TO BE SENT TO PRINTER 
:PRINT THE <CR><LF> 
:CHECK FOR ERRORS 


;DOUBLE THE SPACE SIZE 
1S THE SPACE SIZE LARGER THAN THE MAXIMUM? 
;1F NOT THAN PRINTING MORE IS 


TRAP 


CSETST 


SEQ 102 


SEQ 103 
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TEST 5: PAPER POSITIONING TEST 


1 
2 
3 020610 BGNTST 
020610 T5:: 
4 
5 
6 
7 
5 
10 PSUUCPECOPEPE OCOD CD ODECC EC ODOC ECD ED ED EDE ODE COD OPP EP PPO rt irre errr ererrerennnieg 
11 3 
\¢ 3 TEST #5 
16 ; PAPER POSITIONING TEST 
16 ; IN THIS TEST THE VERTICAL PAGE MOVEMENT CAPABILITIES OF THE PRINTER 
17 ; ARE EXERCISED. A LINE OF DASHES WILL BE PRINTED BETWEEN EACH VERTICAL 
18 : CARRIAGE MOVEMENT SO THAT THE PATTERN CAN BE DETECTED BY THE USER. 
19 ; IN EACH LOOP THROUGH THE PRINTING CYCLE OF THIS TEST, THE VERTICAL 
20 ; INCREMENT OF MOVEMENT WILL BE DOUBLED. THE LINES OF DASHES WILL THUS 
21 ; BECOME TWICE AS FAR APART AS EACH PASS THROUGH THE PRINTING CYCLE IS 
22 : COMPLETED. me: by 
23 ; 
24 a eT eee TT EL 
25 
26 
27 
3 
30 020610 004737 014274 TESTS: JSR PC, INITCD s INITIALIZATION CODE 
31 020614 PRINTB #TITLES “CONSOLE PRINT OF THE TEST TITLE. 
020614 012746 002564 MOV #TITLES,-(SP) 
020620 012746 000001 MOV #1,-(SP) 
020624 010600 MOV SP,RO 
020626 104414 | TRAP CS$PNTB 
= 020630 062706 000004 / ADD #4,SP 
33 020634 052737 040000 006500 BIS #BIT14,ERWORD ;DISABLE ERROR HANG-UPS 
34 020642 012701 002564 MOV #TITLES,R1 ‘ADDRESS OF THE TITLE TO BE PRINTED 
35 020646 062701 000004 ADD #4,R “SKIP FIRST FOUR CHARACTERS. 
36 020652 012702 000054 MOV #44. ,R2 743 CHARACTERS IN THE TITLE 
37 020656 005003 CLR R3 ‘DISABLE BIDIRECTIONAL PRINTING 
020660 004737 012616 JSR PC, XMIT ‘SEND THE TITLE SEQUENCE TO THE PRINTER. 
39 020664 042737 040000 006500 BIC #BIT14,ERWORD :RE-ENABLE THE ERROR HANG-UPS. 
41 020672 012737 000001 010062 MOV #1, LINCNT sLINEFEED SIZE IN 1/48 INCH INCREMENTS. 
43 020700 013701 010062 AGN: MOV LINCNT,R1 :A NUMBER FOR CONVERSION TO ASCII MNEMONICS 
0704 004737 014176 JSR PC, CONVRT “CONVERT NUMBER IN R1 TO THREE MNEMONIC BYTES 
45 020710 012700 000001 MOV #1.RO 
46 020714 113760 010046 002226 MOVB MNEBI,VRTCLS(RO) ;TRANSFER MNEMONICS INTO ARGUMENT 
47 020722 005200 INC R . 
48 020724 113760 010047 002226 MOVB MNEB2,VRTCLS(RO) ; LIST SLOTS IN THE 
49 020732 005200 INC 
30 020754 113760 010050 002226 MOVB MNEB3,VRTCLS(RO) ; ESCAPE SEQUENCE. 


N 8 
SEQ 104 
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TEST 5: PAPER POSITIONING TEST 


52 020742 012701 002226 MOV #VRTCLS,R1 ;ADDRESS OF iy sett oe SPACING ARGUMENTS 
53 020746 pierts 000005 MOV #5 ,R2 ;THERE ARE 5 CHARACTERS : ESC NNN Q 
3¢ 020752 004737 012616 JSR PC, XMIT 3 SEND TO PRINTER” 
56 020756 012701 00654 MOV #DASHES,R1 sADDRESS OF iy? DASHES 
57 020762 012702 00001 MOV #11. ,R2 TEN DASHES @L 
58 020766 004737 012616 JSR PC, XMIT SEND TO PRINTER 
2 020772 004737 015246 JSR PC,ERRORS ;CHECK FOR ERRORS 
61 020776 006337 010062 - ASL LINCNT ;DOUBLE LINEFEED SIZE 
62 021002 023727 010062 002000 CMP LINCNT ,#MXLF ;TOO LARGE A LINEFEED Y 
° 021010 100733 BM! AGN ;1F NOT REPEAT PRINT SEQUENCE. ELSE- EXIT TEST. 
65 021012 ENDTST 
021012 L10014: 
“6 021012 104401 TRAP CSETST 
67 
68 
69 
70 
71 : 
72 ; 
73 


74 -SBTTL TEST 6: PRINT ONE LINE OF EACH CHARACTER 


Pete eer 
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iTEST 6: 


| 


MEWN | O OOMNOUFSWN—OVOONOW Swe 


021014 


POMP POPUP  @ Ss Ss Os 


o 
oO 
rr 
—— 
oO 
Nm 
So 


33 021064 
3 021070 
36 021076 
37 021102 


= 
™ 
oOo Sco SoOCOOoOO oO 
MM FORM POPOTFOTMON ff 
——s —_ —) —> —_ 4 —) —) — —_ 
WwW ReNe—— 


we & 


1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 


004737 
012746 


012703 
005004 
005037 
010401 


014274 
002645 
000001 
000004 
040000 

5 


000053 


012616 
040000 


177777 
010064 


015246 


010064 
010064 


000136 


PRINT ONE LINE OF EACH CHARACTER 


006500 


006500 


010042 


BGNTST 


Fé: 


TEST6: 


LINLO6: 
CHRLO6: 


TEST #6 


PRINT ONE LINE OF EACH CHARACTER 


IN THIS TEST ONE LINE OF EACH CHARACTER WILL BE PRINTED FOR THE 
ENTIRE PRESET PAGE WIDTH. 


CLASSIFIED. 

JSR PC, INITCD 
PRINTB #TITLE6 

BIS #B1T14,ERWORD 
MOV #TITLEG,RI 
ADD #4,R1 

MOV #48, ,R2 

CLR R3 

JSR PC, XMIT 

BIC #B1T14,ERWORD 
MOV #-1,R3 

CLR RG 

CLR CHRCNT 

MOV R4,R1 

ADD #CHRLST,R1 
MOV #1,R2 

JSR PC. XMIT 

JSR PC ERRORS 

INC CHRCNT 

CMP CHRCNT,LINSIZ 
BMI CHRLO6 

INC R4 

CMP R4 #94. 


SHEBPEGFCSECSCS ESS SCSECSSESCHKASCE SCA Hse Cc ESPsePas SFCRPECSEAGCASCESHCVCPCOHSCsesCCCSSSEPPEsCACC CCBA aS 


PRINTER DETECTED ERRORS WILL BE DETECTED 


INITIALIZATION FOR TEST 
;CONSOLE PRINT OF THE TEST Fare 


;DISABLE ERROR HANG-UPS 
s;ADDRESS OF THE TITLE 
;SKIP FIRST FOUR CHARACTERS 


743 CHARACTERS IN THE TITLE 
;DISABLE ice boone PRINTING FOR THE MOMENT 


PRINT THE T 


sGET OFFSET 


:POINT TO DESIRED CHARACTER IN CHAR LIST. 
:JUST THE ONE CHARACTER TO PRINT 


TLE 
;ENABLE DESIRED ERROR HANG-UPS. 


:ENABLE BIDIRECTIONAL PRINTING 
"NO LINES YET 
<NO CHARACTERS YET PRINTED 


PRINTED 


;SEND THE CHARACTER 


:CHECK FOR ERRORS 
sKEEP TRACK OF THE CHARACTERS PRINT 
sHAS A FULL LINE BEEN PRINTED YET? 
;1F NOT THEN PRINT UNTIL TRUE. 


KEEP TRACK OF THE LINES PRINTED 


ED 


796 LINES PRINTED? (ALL CHARACTERS?) 


#4 ,SP 


SEQ 105 


| 
| 


cc - oo --- hCr en — <2 ———— a 


| ey ¢ 9 
SEQ 106 
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‘Test 6: PRINT ONE LINE OF EACH CHARACTER 
| 52 021154 100753 BMI LINLO6 IF NOT YET, MORE LINES TO PRINT. 
54 021156 | /  ENDTST 
02115 110015: 


6 
021156 104401 TRAP CSETST 


69 -SBTTL TEST 7: PRINT A SWIRL PATTERN 
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‘TEST 7: PRINT A SWIRL PATTERN 
1 
2 
a 
4 021160 BGNTST 
| 021160 T7:: 
5 
| ; PIUDEDCUPEP EDP OPECEDO ECE CEDECCEDECEO PEPE E COOP EPP Cerr reer errr eer erereneeneny 
8 ; 
» ; TEST #7 
i : PRINT A SWIRL PATTERN 
13 : IN THIS TEST, A SWIRL PATTERN IS PRINTED BY SENDING THE SEQUENCE 
14 : OF CHARACTERS IN THE CHARACTER LIST AND INCREMENTING THE STARTING 
15 ; POINT IN THAT LIST SO THAT THE SEQUENCE STARTS AT A DIFFERENT 
Ys ; CHARACTER EVERY LINE. 
18 A oe EN RR OO a | eR aE oem wpe, eta eS ane 
0 
21 021160 004737 014274 TEST7: JSR PC, INITCD S INITIALIZE THE TEST 
22 021164 PRINTB #TITLE7 “CONSOLE PRINT THE TITLE 
021164 012746 002725 MOV #TITLEZ, -(SP) 
021170 012746 000001 MOV #1,-(SP 
021174 010600 MOV SP RO 
021176 104414 TRAP  C$PNTB 
" 021200 062706 000004 ADD #4,SP 
24 021204 052737 040000 006500 BIS #BIT1G4,ERWORD ; INHIBIT ERROR HANG-UPS 
25 021212 012701 002725 MOV aTITLE?, R1 ‘ADDRESS OF THE TITLE TO BE PRINTED 
26 021216 062701 000004 ADD :SKIP 1ST 4 CHARACTERS. 
7 021222 012702 000040 MOV 133" (R2 :32 CHARACTERS INVOLVED 
28 021226 005003 CLR R3 “DISABLE BIDIRECTIONAL PRINTING FOR NOW. 
29 021230 004737 012616 JSR PC, XMIT :SEND TO PRINTER 
30 021234 042737 040000 006500 BIC #BIT14,ERWORD :ENABLE ERROR HANG-UPS 
32 021242 012703 177777 MOV #-1,R3 sENABLE BIDIRECTIONAL PRINTING 
33 021246 005004 CLR R4 ‘NO LINES ARE PRINTED YET 
35 021250 010401 NXTLIN: MOV R4,R1 OFFSET 
36 021252 062701 006555 ADD #CHRLST,R1 ‘ADDRESS OF CHARACTER TO BE PRINTED. 
37 021256 013702 010042 MOV LINSIZ,R ‘LENGTH OF LINE. PRINT A LINES WORTH 
38 021262 004737 012616 JSR PC, XMIT : TRANSMIT THE LINE TO THE PRINTER 
ip 021266 004737 015246 JSR PC.ERRORS “CHECK FOR ERRORS 
1 021272 010105 MOV R1,R5S :ADDRESS OF LAST CHARACTER FOR PRINTING.. 
42 021274 005205 INC RS : POINT ONE FURTHER FOR SWIRL EFFECT. 
43 021276 013701 010042 MOV LINSIZ,R1 ; 
44 021302 060501 ADD R5,R1 “POINT TO THE FIRST CHARACTER TO BE PRINTED+1. 
46 021304 005301 REVRSP: DEC R1 :POINT TO THE NEXT CHARACTER TO BE PRINTED. 
47 021306 012702 000001 MOV #1,R2 “TELL XMIT THAT A SINGLE CHARACTER PRINTED. 
48 021312 004737 012616 JSR PC.XMIT “SEND THE CHARACTER. (REVERSE PRINT) 
49 021316 004737 015246 JSR PC ERRORS ‘CHECK FOR ERRORS. 
51 021322 020501 CMP RS,R1 :PRINTED ENOUGH CHARACTERS YET IN REVERSE? 


SEG 107 


r 


'HARDWARE TESTS MACRO VO3.01 7=-NOV-80 10:06:10 PAGE 34-1 
‘TEST 7: PRINT A SWIRL PATTERN 


Ee 


26 021324 100767 


57 021326 062704 000002 
58 021332 020427 000024 
59 021336 100744 


61 021340 
021340 
021340 104401 


~SBTTL 


BM! REVRSP ;PRINT NEXT REVERSE CHAR. 
DONE WITH REVERSE PRINT. 

ADD #2,R4 

CMP R4 #20. ;TEN LINES PRINTED YET? 

BM! NXTLIN ;1F DONE, EXIT TEST 

ENDTST 


TEST 8: WORST CASE RAPID MOTION TEST 


L10016: 


TRAP 


KEEP TRACK OF THE NUMBER OF LINES PRINTED 


CSETST 


SEQ 108 


HARDWARE TESTS MACRO V03.01 


TEST 8: 


021342 
021342 


FUN “OO DNAUSFWN—“ODONO VFWNR— 


PORIPONO PY @ @ @ Ss Ss Ss SS OS 
uw 


021342 


26 

27 021366 
28 0213574 
29 021400 
30 021404 
31 021410 
32 021412 
33 021416 


34 
35 021424 
36 021430 
37 021432 
38 021436 
39 


40 

41 021440 
42 021444 
43 021450 
rf: 021454 


5 
46 021460 
47 021462 
48 021464 

49 
50 021466 
021466 


004737 
012746 


062706 
052737 


042737 
012703 


004737 


005204 
020405 
100765 


014274 
002772 
000001 
000004 
040000 

2 


000047 


012616 
040000 


177777 
010042 


006535 


015246 


006500 


006500 


BGNTST 


7-NOV-80 10:06:10 PAGE 35 
WORST CASE RAPID MOTION TEST 


SEQ 109 


T8:: 


TEST8: 


LOOPS: 


PSSPSESECCPSCHOSSSE SER SL STPEACSCSTHPAPEKCVTSSESCSSCC HEREC SASeSCASCBESCHMSKSCSCEPCSESC CHC SCS CECE ESS 2 


TEST #8 


WORST CASE RAPID MOTION TEST 


THIS TEST WILL PUT THE PRINT WHEEL THROUGH A ie STRESSFUL 
SITUATION BY REPEATEDLY PRINTING THE SEQUENCE ‘‘ACA 


JSR 
PRINTB 


ENDTST 


PC, INITCD 
#TITLE8 


#B1T14, ERWORD 
#TITLES, 
#4,R1 

#39. ,R2 

R3 

PC, XMIT 
#B1T14,ERWORD 
#-1,R3 

RG 

LINSIZ,R5 

R5 


#ACAS,R1 
z je 
MIT 


PC. * ERRORS 


s INITIALIZE TEST 
;CONSOLE PRINT TEST TITLE 
iM Le -(SP) 


MOV #1,-(SP 
MOV PRO 
TRAP CSPNTB 
ADD #4 SP 


;DISABLE ERROR HANG-UPS 

sADDRESS OF TITLE 

;SKIP FIRST 4 CHARACTERS 

339 CHARACTERS 

NO BIDIRECTIONAL PRINTING FOR NOW 
;SEND TO PRINTER 

;ENABLE ERROR HANG-UPS 


;ENABLE BIDIRECTIONAL PRINTING 
;COUNT OF ‘‘ACA:*’ BLOCKS 

:# OF ee PER LINE 

:LINSIZ/2 : 1 BLOCK = 4 CHARACTERS... 
; PRINT 2 LINES AT NEW LINE SIZE 


;ADDRESS OF SEQUENCE 
OF 4 CHARACTERS... 
SEND TO PRINTER 
;CHECK FOR ERRORS. 


;ENOUGH BLOCKS PRINTED?? 
:1F NO, LOOP TO PRINT NEXT BLOCK... 


L10017: 


a 


| ji 6 9 


HARDWARE TESTS MACRO V03.01 7-NOV-80 10:06:10 PAGE 35-1 
TEST 8: WORST CASE RAPID MOTION TEST 


021466 104401 TRAP CSETST 


SEQ 110 
| 


57 : 


61 -SBTTL TEST 9: PRINT RANDOM CHARACTERS 





2) TESTS MACRO V03.01 7-NOV-80 10:06:10 PAGE 36 


9: PRINT RANDOM CHARACTERS 


021470 
021470 


NOR os Ss Ss Ss eS 
—"OOONOUEF WN —-ODOOnNOUF Wh 


rmrrr 
wn 


021470 
5 


02 

021510 
26 
27 021514 
28 021522 
29 021526 
30 021532 
31 021536 
32 021540 
021544 


3 

35 021552 
36 021556 

37 021560 
$ 021562 
ra 021564 
a2 021570 


4 
44 021574 


48 021614 


49 
50 021620 
51 021624 


004737 
012746 


062706 
052737 


042737 
013705 
006305 


004737 


014274 
003046 
000001 
000004 
040000 

6 


000042 


012616 
040000 


01004¢ 


010064 
014726 
006555 


015246 


010064 
010064 


006500 


006500 


BGNTST 


Be Se Be Se Se Be Be Oe 


TESTS: 


PLOOP9: 


TEST #9 


PRINT RANDOM CHARACTERS 
THIS : WILL PRINT A RANDOM SEQUENCE OF CHARACTERS ON THE 


PRIN 


JSR 
PRINTB 


PC, INITCD 
#TITLE9 


#BI1T14,ERWORD 
#TITLE9,R1 


PC, XMIT 
#B1T14,ERWORD 
LINSIZ,R5 

R5 


R5 
R5 


CHRCNT 
PC ,RANDOM 
#CHRLST,R1 
#1,R2 


PC ERRORS 


CHRCNT 
CHRCNT,RS 


INITIALIZE TEST 
;CONSOLE PRINT TITLE 


;DISABLE ERROR HANG-UPS 
sADDRESS OF TITLE 
;SKIP 1ST 4 CHARACTERS 
734 CHARACTERS IN THE LE 
:DISABLE BIDIRECTIONAL PRINTING 
;SEND TO PRINTER 

TENABLE ERROR HANG-UPS 


;GET THE LINE SIZE 
sLINE SIZE * 


: 
;LINE S176 * 
;LINE SIZE * 3 


; TO PRINT 8 LINES WORTH 
;NO CHARACTERS PRINTED YET 


;RANDOM NUMBER (0 - 99) INTO R1 


TIT 


;ADDRESS FOR THIS PRINT 


SINGLE CHARACTER 
;BIDIRECTIONAL PRINTING. 
;SEND TO PRINTER 

;CHECK FOR ERRORS. 


“; KEEP TRACK OF bs NUMBER OF CHARACTERS 
sEIGHT LINES YET 


CARSCHEKSHTTSEHTSESCSCSCSESAESSSC ESP HS SSCSCSECPSERESESCETPATCEASCHBEPDESVOEC HASHES ERESCVEMSSCHR ca eeecese 


At ef -(SP) 
#1,-(SP 


SEQ 111 


SEQ 112 


‘HARDWARE TESTS MACRO VO3.01 7-NOV-80 10:06:10 PAGE 36-1 
TEST 9: PRINT RANDOM CHARACTERS 


26 021630 100757 BM] PLOOP9 ;NO,LOOP UNTIL DONE 
54 021632 ENDTST 
021632 L10020: 
021632 104401 TRAP CSETST 


s 


60 : 
61 : 


63 | “SBTTL TEST 10: PRINT OPERATOR SELECTED CHARACTERS 


021634 
021634 


—"OOWNAUEWN—"ODONAOUSW Ww 
oOo 


NOR) — os os 


33 
34 
35 021736 
37 021740 
38 
39 
021744 
42 021746 


yarounae TESTS MACRO VO3.01 7-NOV-80 10:06:10 PAGE 37 


PRINT OPERATOR SELECTED CHARACTERS 


004737 
012746 


005004 
105764 


001011 
012701 


014274 
003115 
000001 


000004 


os se 006500 


000056 


012616 
040000 006500 


007352 


002313 


BGNTST 


T10:: 


SSPCSHCC SCRE FCSCSPSESSCSCHCSCSLASCSCASE TPS VSCCEHKESE SE HAPFUVCSTHTRESCSHAASPCSCS SPECS ESC ASSESS SCIECHRECHe SEL 


TESTA: 


LOOPA: 


NXTA: 


TEST #10 


PRINT OPERATOR SELECTED CHARACTERS 


THIS OPTIONAL TEST WILL PRINT CHARACTER SEQUENCES SELECTED BY THE 
OPERATOR ONE LINE AT A TIME. 


JSR 
PRINTB 


GMANID 


CLR 
TSTB 


BNE 
MOV 


PC, INITCD 
#TITLEA 


#B1T14,ERWORD 
#TITLEA,RI 
#4,R1 
#46. ,R2 

R3 


PC, XMIT 
#81114, ERWORD 


sTEST INITIALIZE 
;CONSOLE PRINT TITLE 


PRMPTA,BFRA,A,0,1,72,NO 


R4 
BFRA(R4) 


TFCZ 
#CR,R1 


MOV #TITLEA,-(SP) 
MOV #1,-(SP) 
MOV SP,RO 
TRAP CS$PNTB 
ADD #4 ,SP 

;DISABLE ERROR HANG-UPS 

sADDRESS OF TITLE 

SKIP 4 CHARACTERS 

746 CHARACTERS IN THE TITLE 

;DISABLE BIDIRECTIONAL PRINTING 

;SEND TO PRINTER 

:ENABLE ERROR HANG-UPS 
TRAP C$GMAN 
BR 100008 
-WORD BFRA 
-WORD TSCODE 
«WORD PRMPTA 
. WORD 
-WORD TSLOLIM 
-WORD TSHILIM 


10000$: 
:PROMPT AT CONSOLE AND INPUT STRING. 
3R4 1S OFFSET IN INPUT STRING 


1S THE BYTE A ZERO? 
; SEND A ZERO AS THE LAST B 


GMANID IS cere Tee TO 
BYTE. THIS WILL 


; INDICATE THE END OF THE INPUT STRING. 


:NOT ZERO. 
sADDRESS OF 


CHECK FOR CTL-2 
CARRIAGE RETURN - LINEFEED 


SEQ 113 


oo —— —— -- - —= a a 


| ew KR Me 


SEQ 114 
‘HARDWARE TESTS MACRO VO3.01 7-NOV-80 10:06:10 PAGE 37-1 
TEST 10: PRINT OPERATOR SELECTED CHARACTERS 
43 021752 012702 000002 MOV #2,R2 ;TWO BYTES TO SEND 
44 021756 004737 012616 JSR PC,XMIT 3SEND THE STRING 
a 021762 004737 015246 JSR PC,ERRORS ; CHECK FOR ERRORS. 
ts 021766 000753 BR LOGPA ;BACK TO PROMPT... 
49 
50 021770 126437 007352 006525 TFC2: CMPB BFRAC(R4),SCQ 31S IT A ‘'Q"’ ? 
23 021776 001006 BNE NOTQ :IF IT IS, CHECK FOR <RETURN> 
53 022000 005204 INC R4 ;CHECK NEXT BYTE FOR ZERO. 
54 022002 126427 007352 000000 CMPB BFRACR4) ,#0 3:18 THE BYTE A ZERO? 
55 022010 001415 BEQ EXITA ;1F IT IS THEN EXIT TEST 
56 022012 005304 DEC R4 : IF NOT ZERO THEN. NOT RETURN 
57 ;AND NOT YET THE END. 
58 022014 NOTQ: 
59 022014 012701 007352 MOV #BFRA,R1 ; PRINT THE CHARACTER.. 
60 022020 060401 ADD R4,R1 AS R4& POINTS THROUGH THE LIST. 
61 022022 012702 000001 MOV #1,R2 “ONE CHARACTER TO PRIN 
62 022026 005003 CLR R3 ;NOT BIDIR. PRINTING. 
63 022030 004737 012616 JSR PC, XMIT > SEND TO PRINTER. 
e 022034 004737 015246 JSR PC,ERRORS ;CHECK FOR ERRORS. 
66 022040 005204 INC R4 sPOINT TO NEXT CHARACTER 
67 022042 000736 BR NXTA ;REPEAT TILL END OF STRING FOUND. 
b+ 022044 000240 EXITA: NOP 
70 022046 ENDTST 
022046 110021: 
™ 022046 104401 TRAP CSETST 
72 
73 
74 
75 3 
76 : 
77 : 
78 


79 -SBTTL TEST 11: LIFT / DROP RIBBON BY OPERATOR CONTROL 


SEQ 115 
| WARDWARE TESTS wie V03.01 7-NOV-80 10:06:10 PAGE 38 
TEST 11: LIFT / DROP RIBBON BY OPERATOR CONTROL 


022050 BGNTST 
022050 T11:: 


SCSSSSOSSESCEESPDEASPHTESCSSCSRSSCHESERPSESCTCSSCCSESCHSASCHTSCSCSCSSCVCSFSCC CP RSECESCC CECE CCFC STS SSeS eete 


MHOC DOODNAOUVUEWN—“OVONGCU Fw 


1 ; 

; TEST #11 

: LIFT / DROP RIBBON BY OPERATOR CONTROL 

1 : THIS TEST WILL ELTHER ENABLE THE USER TO MANUALLY LIFT AND 

1 : DROP THE PRINTER RIBBON OR IT WILL LIFT AND DROP THE PRINTER 

1 : RIBBON AUTOMATICALLY. THE USER LIFTS AND DROPS THE RIBBON 

1 ; BY PUSHING THE RETURN KEY AFTER SELECTING THE MANUAL MODE. IF 

1 : THE AUTOMATIC MODE IS SELECTED BY THE USER, THEN THE RIBBON LIFTS 

2 : AND DROPS TEN TIMES AT A RATE OF ABOUT ONCE PER SECOND. 

2 3 

23 eT PT TTT TT TT TTT Tr ee 

24 

25 

26 

ss 

29 022050 004737 014274 TESTB: JSR PC, INITCD sTEST INITIALIZE 

30 022054 PRINTB #TITLEB ‘CONSOLE PRINT TITLE 
022054 012746 003264 MOV #TITLEB.~(SP) 
022060 012746 000001 MOV #1,-(SP) 
022064 010600 MOV SP_RO 
022066 104414 TRAP  C$PNTB 

- 022070 062706 000004 ADD #4,SP 

32 022074 052737 040000 006500 BIS #BIT14,ERWORD ;DISABLE ERROR HANG-UPS 

33 022102 012701 003264 MOV #TITLEB,R1 ‘ADDRESS OF TEST TITLE 

34 022106 062701 000004 ADD #4,R1 ‘SKIP 4 CHARACTERS 

35 022112 012702 000060 MOV #48. ,R2 348 CHARACTERS TO BE PRINTED. 

36 022116 005003 CLR R3 :NO BIDIRECTIONAL PRINTING 

37 022120 004737 012616 JSR PC, XMIT :SEND THE TEST TITLE 

i 022124 042737 040000 006500 BIC #BIT14,ERWORD ENABLE ERROR HANG-UPS 

40 022132 012701 002303 MOV #SETHTO,R1 :SET HIT COUNT TO ZERO 
1 022136 012702 000005 MOV #5,R2 ‘FIVE CHARACTER STRING SENT TO PRINTER 

i 022142 005003 CLR R3 [NO BIDIRECTIONAL LOGIC REQUIRED. 
022144 004737 012616 JSR PC, XMIT ‘SEND TO PRINTER. 

és 022150 012701 002310 MOV #SETCHO,R1 :SET CHARACTER SIZE TO ZERO 

46 022154 012702 000003 MOV #3,R2 SARGUMENT LIST 1S 3 CHARACTERS LONG. 

7 022160 005003 CLR R3 [NO BIDSIRECTIONAL LOGIC REQUIRED. 


| 022162 004737 012616 JSR PC, XMIT ;SEND TO PRINTER 


50 
51 022166 GMANID OPTN1,BFRB,A,0,1,72,VES 


—_———___—_- 
HARDWARE TESTS MACRO V03.01 7-NOV-80 10:06:10 PAGE 38-1 
TEST 11: LIFT / DROP RIBBON BY OPERATOR CONTROL 


022166 104443 
| 022170 000406 
022172 010030 
022174 000152 
022176 003351 
022200 000000 
022202 000001 
022204 000072 
022206 
; 
54 022206 123737 010030 006531 CMPB BFRB,SCA 
2? 022214 001403 BEQ AUTCAL 
57 
58 022216 004737 022352 JSR PC ,MANLD 
2 022222 000402 BR EXIT 
e; 022224 004737 022232 AUTCAL: JSR PC ,AUTOLD 
63 022230 EXIT: ENDTST 
022230 
022230 104401 
64 
65 
66 : 
67 
68 
69 ; 
70 : 
71 ; 
72 : 
73 
74 
75 
76 
77 
78 
79 
80 
81 
82 
83 
&4 


TRAP CS$GMAN 


BR 10000$ 
-WORD BFRB 
«WORD TSCODE 
-WORD OPTNI 
-WORD 0 


«WORD TSLOLIM 
WORD TSHILIM 


100008: — 
:ASK USER TO CHOOSE AUTO OR MANUAL MODE. 


71F CHARACTER IS ‘‘A'’ THEN AUTO MODE CHOSEN 
:$0 CALL LOCAL ROUTINE TO HANDLE AUTO MODE 


OTHERWISE, MANUAL IS CHOSEN..... 
;D0 MANUAL LIFT / DROP. 

EXIT TEST WHEN DONE 

;D0 AUTOMATIC MODE LIFT / DROP. 


L10022: 
TRAP CSETST 


SEQ 116 


-—— 


5 TESTS aaa v03.01 7-NOV-80 10:06:10 PAGE 39 
TEST 11: LIFT / DROP RIBBON BY OPERATOR CONTROL 


epee PO A thy ah Nee St —teet te Se 


39 
re 


SOON AUEWN HO ODNAUESUIN HOD ONOU Sw 


BIFAREG 
o 


022232 
02 


022270 
022274 


022350 


ses seses=2 
wu WIPOPOPOPY 
Ses o 


eines 
Onoses 002240 


015246 
001750 
015224 


000001 
39) 002240 


010066 
010066 000024 


:FONCT ONAL DESCRIPTION 


; INPUTS 
NONE 


NONE 


TEST #11 
LOCAL PROCEDURE AUTOLD 
AUTOMATIC MODE OF RIBBON LIFT AND RIBBON DROP. 


;FUNCTIONAL SIDE EFFECTS 


OUTPUTS 


THE PRINTER RIBBON WILL LIFT/DROP AUTOMATICALLY. 


:CALLING SEQUENCE 


: JSR 


AUTOLD: CLR 


AUTOLE: MOV 
MOVB 


PC ,AUTOLD 

- CCOUNT ;COUNT OF vane (LIF T/DROP) 
#1,R0 ;POINT TO POSITION PARAMETER 
#ZERO,RIBPOS(RO) ;RIBBON UP ARGUMENT LLET/DROP 
#RIBPOS ,R1 ADDRESS OF ARG LIST CYCLE. 
#4, 4 ARGUMENTS = = = = = § seeccccce 
PC, XMIT sSEND TO PRINTER 8 8=—=— seccccces 
PC ERRORS CHECK FOR ERRORS. = =—=—s neneeeeee 
#1000. ,R5 DELAY TIME IN R1 FOR DELAY ROUTINE. ..... 
PC DELAYS ;PERFORM DELAY OF ABOUT 1 SECOND. 
#1,R0 :POINT 16 THE RIBBON POSITION PARAMETER ... 
WONE ,RIBPOS(RO) ;LOWER THE RIBBON. eee 
#RIBPOS RI ARGUMENT LIST ADDRESS. = — eeees 
#4,R2 ie COVERS nw er eee 
R3 BIDIRECTIONAL LOGIC DISABLED —s__. a eee 
PC, XMIT + SEND SEQUENCE TO PRINTER. = =—s nnevecees 
PC ERRORS ee ee cee 
CCOUNT KEEP COUNT OF cece SO FAR... §— saccccese 
CCOUNT ,#20. ;LOOP TEN TIMES FOR TEN unt "7 DROP ates. 
AUTOLE ;LOOP UNTIL TEN LOOPS DONE. 


PC 


SEQ 117 


B 10 


poea TESTS De V03.01 7-NOV-80 10:06:10 PAGE 39-1 
TEST 11: LIFT / DROP RIBBON BY OPERATOR CONTROL 


58 
59 ; 
60 ; 
61 ; 
62 
63 


SEQ 118 


aa 


MARDUARE TESTS ar V03.01 7-NOV-80 10:06:10 PAGE 40 
TEST 11: LIFT / DROP RIBBON BY OPERATOR CONTROL 


f. 


WN SO OONAUES WN $0 CONOUEWN— 


MIMINPNIDR 2 SS SS SS eS 
= 


Zz 


22 022412 
43 022420 


012746 003466 
012746 000001 
010600 


104414 


062706 000004 


104443 


010032 006525 


rFOWET ONAL DESCRIPTION 
TEST #11 
LOCAL PROCEDURE MANLD 
MANUAL LIFT / DROP MODE. IF SELECTED, THIS MODE WILL PERMIT 
THE USER TO EITHER LIFT OR DROP THE RIBBON BY SIMPLY HITTING 


THE <RETURN> KEY. IF A ‘'Q'' CHARACTER IS ENTERRED BEFORE THE 
<RETURN> KEY IS HIT THEN THE TEST IS STOPPED. 


INPUTS 
NONE 
S OUTPUTS 
NONE 
SFUNCTIONAL SIDE EFFECTS 
THE RIBBON WILL LIFT/DROP BY OPERATOR CONTROL. 
CALLING SEQUENCE 
JSR PC ,MANLD 


MANLD: PRINTB #PRMPTC ;PROMPT INSTRUCTIONS AT CONSOLE 
MOV #PRMPTC,-(SP) 


MOV #1,-(SP) 


MOV SP ,RO 
TRAP CS$PNTB 
ADD #4 ,SP 


MANLE: GMANID NPRMPT,BFRC,A,0,1,72,YES 
TRAP  C$CMAN 
BR Looo0s 


. BFRC 
-WORD TSCODE 
«WORD —" 


-WORD TSLOLIM 
-WORD TSHILIM 
ie nga 
; INPUT <RETURN> OR Q <RETU 
: <RETURN> MEANS TO CHANGE "RIBBON POSITION 
70 <RETURN> MEANS TO EXIT TEST. 
— ;1S THE CHARACTER A ‘'Q"' ? 


CMPB B 
E :IF SO - EXIT TEST. 


SEQ 119 


crc — —— ——— 


| 
| 


/HARDWARE TESTS 
| Ane 


TES 


45 022422 


50 022446 
51 022452 


53 022456 
55 022460 


MACRO VO03.01 7-NOV-80 10:06:10 PAGE 40-1 
LIFT / DROP RIBBON BY OPERATOR CONTROL 


000207 


000001 


000004 


012616 
015246 


002240 


EXIT11: 


" SBTTL 


TEST 12: 


p10 
SEO 120 


#1 ,R0 

#ZERO,RIBPOS(RO) ;ARGUMENT FOR LIFT RIBBON 
#RIBPOS,R1 ;ADDRESS OF ARGUMENT LIST 
#4 ,R2 34 ARGUMENT CHARACTERS IS 
R3 ;DON'T BOTHER WITH BIDI 


LIST 
RECTIONAL PRINTING CODE 
;SEND ARGUMENT LIST TO PRINTER 


PC,XMIT 

PC,ERRORS ;CHECK FOR ERRORS. 

MANLD ;REPEAT UNTIL A ‘'Q'' IS FOUND IN THE BUFFER 
PC 


BIDIRECTIONAL FORMS TRACTOR TEST 


SEQ 721 
HARDWARE TESTS MACRO V03.01 7=NOV-80 10:06:10 PAGE 41 
TEST 12: BIDIRECTIONAL FORMS TRACTOR TEST 
1 
2 
3 
4 022462 BGNTST 
022462 T12:: 
é 
7 SUPPOUCCC UCP CUTP CCT CP ECU CUU UCU CPOE U eee eee eee eee eee eee reece eeeeenergegeeegy 
8 ; 
16 ; TEST #12 
\ ; BIDIRECTIONAL FORMS TRACTOR TEST 
13 : THIS TEST WILL PRINT A TEN BY TEN ARRAY OF ASCII CHARACTERS 
14 : IN A RANDOM ORDER ON THE PRINTER. THE TEST WILL NOT OVERPRINT 
15 : ANY LOCATIONS IN THE ARRAY. THIS TEST SHOULD EXERCISE BOTH UP 
16 ; AND DOWN CARRIAGE MOTION AS WELL AS FORWARD AND BACKWARD CARRIAGE 
17 : MOTION. 
18 3 
19 PRTCTUPETTTTTUTT TTT TTT TTT iT er Tt Te ee 
i 
22 022462 004737 014274 TESTC: JSR PC, INITCD sTEST INITIALIZE 
23 022466 PRINTB #TITLEC CONSOLE PRINT TITLE OF TEST 
022466 012746 003717 MOV ATITLEC,-(SP) 
022472 012746 000001 MOV #1,-(SP) 
022476 010600 MOV SP ,RO 
00 104414 TRAP C$PNTB 
om 022502 062706 000004 ADD #4,SP 
25 022506 052737 040000 006500 BIS #BIT14,ERWURD  ;TEMPORARILY SUSPEND ERROR HANG-UPS 
26 022514 012701 003717 MOV ATITLEC,R1 sADDRESS OF TITLE TO PRINT 
27 022520 062701 000004 ADD #4,R1 ; SKIP 4 CHARACTERS 
28 022524 012702 000047 MOV #39. ,R2 ; 
29 022530 005003 CLR R3 
30 022532 004737 012616 JSR PC,).41T “PRINT TITLE 
2 022536 042737 040000 006500 BIC #B11T14,ERWORD ‘RE INSTATE ERROR HANG-UPS 
33 022544 GMANID T11PMT,BFRD,A,0,1,72,YES 
022544 104443 TRAP C$GMAN 
022546 000406 / BR 10001$ 
022550 010034 WORD BFRD 
022552 000152 WORD TS$CODE 
022554 004346 WORD T11PMT 
0622556 000000 -WORD 0 
022560 000001 .WORD TSLOLIM 
022562 000072 .WORD TSHILIM 
022564 100018: 
34 
35 
36 
ss 
39 : CLEAR ALL TABLE UNIQUENESS INDICATORS. 


41 022564 012700 005262 , MOV #BASET,RO ;GET THE BASE ADDRESS OF THE VECTOR TABLE 
22570 062700 000005 CLEART: ADD #5,R0 [POINT TO THE UNIQUENESS INDICATOR. 


SEQ 122 

HARDWARE TESTS MACRO VO3.01 7-NOV-80 10:06:10 PAGE 41-1 
TEST 12: BIDIRECTIONAL FORMS TRACTOR TEST 

43 022574 105010 CLRB aro :CLEAR THE UNIQUENESS INDICATOR. 

44 022576 005200 INC RO :POINT TO THE NEXT TABLE ENTRY. 

45 022600 020027 006412 CMP RO, #FRONT qf: IT POINTING BEYOND THE TABLE? 

46 022604 100771 BMI CLEART REPEAT LOOP UNTIL ALL UNIQUENESS INDICATORS 

47 : ARE CLEARED. 

48 

49 

4 VECTOR TABLE READY TO USE. 

52 

53 022606 005037 010066 CLR CCOUNT COUNT CHARACTERS PRINTED 

54 022612 004737 014726 PLOOPC: JSR PC, RANDOM ;GET A RANDOM NUMBER (0 - 99) INTO R1 

29 022616 010104 MOV R1,RG :PUT INTO R4 FOR THE PRARCH ROUTINE. 

57 022620 004737 022736 JSR PC, PRARCH :PRINT THE CHARACTER IN ITS 

es : CORRESPONDING POSITION. 

60 022624 005237 010066 INC CCOUNT :KEEP TRACK OF THE COUNT OF CHARACTERS. 

61 022630 023727 010066 000144 CMP CCOUNT, #100. :DONE WHEN 100 HAVE BEE PRINTED. 

6¢ 022636 100765 BMI PLOOPC :REPEAT UNTIL DONE. 

64 022640 012701 002313 MOV #CR,R1 :PRINT A CARRIAGE RETURN AND SOME LINE FEEDS. 

65 022644 012702 000002 MOV #2,R2 ; 

66 022650 005003 CLR R3 

7 022652 004737 012616 JSR PC,XMIT :<CR><LF> 

69 022656 012701 002314 MOV #LF,R1 ;SEVERAL LINE FEEDS... 

70 022662 012702 000001 MOV #1,R2 

71 022666 005003 CLR R3 

72 022670 004737 012616 JSR PC, XMIT 


+ 022730 004737 JSR PC, XMIT 


82 022734 ENDTST 
022734 L10023: 
022734 104401 TRAP CSETST 


oO 
Le) 
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SS 


022736 
022740 
022742 


148 
146 022754 
Hr 4 022760 
2764 


060304 


062704 005262 
062704 000005 


105714 
001404 


004737 014726 


010104 
000762 


FUNCTIONAL DESCRIPTION 


INPUTS 


“se Be Be Be Be we 


; OUTPUTS 


PRARCH: 


GTNUM: 


TEST #12 


G 10 


LOCAL PROCEDURE PRARCH 


THIS SUB-PROCEDURE WILL INPUT THE RANDOM NUMBER, 
PLACE IN THE VECTOR TABLE, PRINT THE APPROPRIATE CHARACTER AT THE 
Se Tat 6. seo AND ACCUMULATE SPACING TO RE-POSITION THE CARRIAGE 


( 0,0 ) POSITION IN THE ARRAY. 


# RANDOM NUMBER CONTAINED IN R4. 
* USED TO GET A RANDOM TABLE ENTRY WHICH IS PRINTED. 


THE TABLE ENTRY IS MARKED AS IT IS PRINTED. 


RANDOM 


MOV 
MOV 
MOV 


SUBORDINATE ROUTINES 
* GEIS ANOTHER RANDOM NUMBER IF THE ONE SUPPLIED 


FIND THE CORRESPONDING 


WAS CHOSEN ALREADY DURING THIS PASS. 


#BASET,R4 
#5,R4 

aRr4 

NOT1 

PC ,RANDOM 
R1,R4 
GTNUM 


;SAVE REGISTERS 


(THAT ARE NOT USED FOR PASSING) 


sOFFSET DESIRED * 2 


;SAVE 2 * OFFSET o LATER 


NOW IN 
DESIRED TABLE INDEX” NOW IN R4. 
ZADDRESS OF TABLE ENTRY DESIRED 


; TABLE OFFSET. 


:CHECK UNIQUE NUMBER INDICATOR.. 
71F NOT UNIQUE THEN CONTROL TOO "NOT1 


;RANDOM NUMBER IN R4 


GET THE RANDOM a. IN THE RIGHT PLACE. 
. TRY THIS 


;LAST ONE DIDN'T WORK. 


eeoeee eee se eee ee eee ee eeeeeeeeseeseeeeeeeeeeseeeeeeeeeeeeeeseeeseeeeeeeeeeeeseeeeeeeee 


ONE. 


SEQ 123 


SEQ 124 
wr TESTS MACRO VO3.01 7-NOV-80 10:06:10 PAGE 41-3 


2 BIDIRECTIONAL FORMS TRACTOR TEST 
| 155 
| 156 023000 112714 000001 NOT1: MOVB #1 ,aR4 SET UNIQUE INDICATOR 
157 023004 162704 000005 SUB #5,R4 : 
| 158 :AT THIS POINT R4 CONTAINS A TABLE ENTRY 
159 sADDRESS WHICH HAS NOT BEEN REFERENCED DURING 
160 ; THIS PASS. 
|. 2 
163 023010 012401 MOV (R4)+,R1 :GET THE VERTICAL COMPONENT OF THE VECTOR 
164 023012 004737 014176 JSR PC, CONVRT CONVERT R1 TG MNEMONICS 
165 023016 912700 000001 MOV #1,R0 
166 023022 113760 010046 002226 MOVB MNEB1,VRTCLS(RO) ;LOAD THE ARGUMENT LIST 
167 023030 005200 INC RO 
168 023032 113760 010047 002226 MOVB MNEB2,VRTCLS(RO) 3 
169 023040 005200 INC RO 
19 023042 113760 010050 002226 MOVB MNEB3,VRTCLS(RO) ; 
172 023050 012401 MOV (R4)+,R1 :GET HORIZONTAL COMPONENT OF THE VECTOR 
173 023052 004737 014176 JSR PC,CONVRT : CONVERT R1 TO MNEMONICS 
174 023056 012700 000001 MOV #1,R0 
175 023062 113760 010046 002233 MOVB MNEB1,HRZTLS(RO) ;LOAD THE ARGUMENT LIST 
176 023070 005200 INC RO 
177 023072 113760 010047 002233 MOVB MNEB2,HRZTLS(RO) ; 
178 023100 005200 INC R 
a 023102 113760 010050 002233 MOVB MNEB3,HRZTLS(RO) ; 
181 023110 012701 002226 MOV #VRTCLS,R1 NOW, ACCUMULATE VERTICAL SPACING 
182 023114 012702 000005 MOV #5,R2 ; 
183 023120 005003 CLR R3 
184 023122 004737 012616 JSR PC,XMIT :SEND TO PRINTER 
185 023126 004737 015246 JSR PC, ERRORS :CHECK FOR ERRORS. 
1 
187 023132 012701 002233 MOV #HRZTLS,R1 NOW, ACCUMULATE HORIZONTAL SPACING 
188 023136 012702 000005 MOV #5,R2 : ' 
189 023142 005003 CLR R3 DISABLE BIDIRECTIONAL PRINT 
190 023144 004737 012616 JSR PC, XMIT :SEND TO PRINTER 
ba 023150 004737 015246 JSR PC,ERRORS CHECK FOR ERRORS. 
193 023154 010401 MOV R4,R1 :GET ADDRESS OF THE CHARACTER 
194 023156 012702 000001 MOV #1,R2 SINGLE CHARACTER 
195 023162 005003 CLR R3 DISABLE BIDIRECTIONAL PRINT LOGIC. 
196 023164 004737 012616 JSR PC, XMLT :SEND TO PRINTER 
bad 023170 004737 015246 JSR PC, ERRORS CHECK FOR ERRORS. 
199 023174 014401 MOV -(R4),R1 ;COLUMN NUMBER IN R1 
200 023176 005401 NEG R1 :NEGATIVE NUMBER FOR LEFT SPACING 
201 023200 162701 000014 SUB #12.,R1 AND ONE EXTRA SPACE ACCOUNTS FOR THE 
$08 CHARACTER WHICH WAS PRINTED (12 INCREMENTS) 
204 0232 004737 014176 JSR PC, CONVRT :CONVERT TO MNEMONIC 
205 023210 012700 000001 MOV #1,R 
206 023214 113760 010046 002233 MOVB MNEB1,HRZTLS(RO) ;PUT IN ARGUMENT LIST 
207 023222 005200 INC R 
208 023224 113760 010047 002233 MOVB MNEB2,HRZTLS(RO) ; 
209 023232 005200 INC R 
210 023234 113760 010050 002233 MOVB MNEB3,HRZTLS(RO) ; 
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TEST 12: 


023340 
023344 
023350 


023352 
6 023354 


238 
239 023356 
240 
241 
| 
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012701 


004737 
014401 


004;’37 
012602 


000207 


010046 
010047 
010050 


002226 
000005 


012616 
015246 


002226 
002226 
002226 


~SBTTL 


TEST 13: 


#WHRZTLS,R1 
#5,R2 


R3 

PC, XMIT 
PC ERRORS 
-(R4),R1 
R1 


PC, CONVRT 
#1 RO 


MNEBT ,VRTCLS(RO) 
MNEB2 , VRTCLS(RO) 
MNEB3, VRTCLS(RO) 


#VRTCLS,R1 
#5,R2 
R3 

PC, XMIT 
PC,ERRORS 


(SP)+,R2 


(SP)+,R3 
(SP)+,R4 


PC 


;ADDRESS OF ARGUMENT LIST 


:5 ARGUMENTS 


4 Roe aoa LOGIC. 
;SEND TO PRINTER 
:CHECK FOR ERRORS. 


;GET THE COLUMN NUMBER 
REVERSE THE CARRIAGE MOVEMENT 
;CONVERT TO MNEMONICS 


sFILL ARGUMENT LIST 


ADDRESS OF ARGUMENT LIST 


; TO ACCUMULATE VERTICAL SPACING 


;DISABLE BIDIR. LOGIC 
;SEND TO PRINTER 


:CHECK FOR ERRORS. 
sRESTORE REGISTERS 


CUT SHEET FEEDER EXERCISOR 


SEQ 125 


er tt TESTS MACRO VO3.01 7-NOV-80 10:06:10 PAGE 42 
(TEST 13: CUT SHEET FEEDER EXERCISOR 


360 
360 


oo 
mr 
Ww 


023360 


—OOONOUSWN—"ODOONGOwW FWwH— 


22 023404 
? 


0 
39 0234 
40 023474 


41 
42 023476 


004737 


012746 
012746 
010600 
104414 
062706 
005003 


104443 


014274 
003773 
000001 


000004 


006514 


BGNTST 


J 10 


T13:: 


SPEEETEECCEEEE EE EEE EEE EEE EEE EEE EEE EEE EEE EEE EE OEE EEE EEE EEE eee 


006527 


002271 


002271 


002271 


006526 CHKC: 


TEST #13 


CUT SHEET FEEDER EXERCISOR 


THIS TES 


JSR 
PRINTB 


CLR 
GMANID 


CMPB 


T WILL 


PC, INITCD 
#TITLED 


R3 
PRMPTD,BR2,A,0,1 


BR2,SCB 
CHKC 


#1,R4 
PS214,S1PGSZ(R4) 


EXERCISE THE CUT SHEET FEED 
THE FEEDER IS INSTALLED, FEEDING AND EJECT 
TEXT ON THE TOPS AND BOTTOMS OF THE SHEETS 


a 
;DISABLE BIDIRECTIONAL PRINTING 
.72,YES 


IN THE PRINTER. 


INITIALIZE TEST 
;CONSOLE PRINT TITLE 


10000$: — 


PROMPT USER FOR PAGE SIZE USED. 
sOPTIONS ARE A) 11 
:AND C) A& EUROPEAN STANDARD. 


INCH, B) 14 INCH 
sWAS THE CHOICE = ‘'B"’ ? 
:1F NOT THEN CHECK IF IT IS = "C’’... 


sOFFSET FOR PSZ14 & STPGSZ 
:THEN = "'B''... 14 INCH PAGE. 


PSZ14(R5) ,STPGSZ(R4) : 


R5 
PSZ214(R5) ,STPGSZ(R4) 
TRNSMT 


BR2,SCC 


:SEND THE ARGUMENT SEQUENCE 


31S THE CHARACTER A ‘'C’* ? 


CCR FSPCSSCSHSECSCHPTLAOSCHTHSSHSCCE SECS HSS FEESCHCSCSCHESCHTSEHPESCHC SCH HSET OBES ESCHCKESECECHOCFEH CACHE SEEK O CHEESES 


ER BY TESTING TO SEE THAT 
ING SHEETS AND PRINTING 


#4,SP 


C$GMAN 
10000$ 


TSLOLIM 
TSHILIM 


SET UP ARG LIST 


SEQ 126 


| 
| 


| 


HARDWARE TESTS 
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43 023504 
4b 


92 023750 
¢ 023754 


95 023756 
96 023764 


97 
98 023766 
99 023772 
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CUT SHEET FEEDER EXERCISOR 


001022 BNE 
010146 MOV 
012701 000002 MOV 
012700 000001 MOV 
113760 002322 002271 MOVB 
116061 002322 002271 MOVB 
012700 000003 MOV 
116160 002322 002271 MOVB 
012601 MOV 
000421 BR 
010146 MAKE11: MOV 
012701 000002 MOV 
012700 000001 MOV 
113760 002325 002271 MOVB 
116061 002325 002271 MOVB 
012700 000003 MOV 
116160 002325 002271 MOVB 
012601 MOV 
012701 002271 TRNSMT: MOV 
012702 000005 MOV 
5003 CLR 
004737 012616 JSR 
004737 015246 "JSR 
012700 000001 SELECT: MOV 
012701 000002 MOV 
113760 006412 002276 MOVB 
116061 006412 002276 MOVB 
012700 000003 MOV 
116160 006412 002276 MOVB 
012701 002276 MOV 
012702 000005 MOV 
005003 CLR 
004737 012616 JSR 
004737 015246 JSR 
012701 004654 MOV 
012702 000140 MOV 
005003 CLR 
004737 012616 JSR 
004737 015246 JSR 
123737 006514 006527 CMPB 
001003 BNE 
013701 002170 MOV 
000411 BR 
123737 096514 006526 CHC2: CMPB 
001003 BNE 
013701 002172 MOV 
000402 BR 


MAKE11 
R1,-(5P) 
#2,R1 


#1,R0 
PSZA4,STPGSZ (RO) 


;1F.NOT THEN ASSUME IT WAS AN "'A’’. 


;SAVE_R1 TEMPORARILY 
FFSET 


“OFFSET 
;THEN = "'C''. SET UP ARG LIST 


PSZA4 (RO) ,STPGSZ(R1) 


#3,R0 
4 oy > lina 


(SP)+, 
TRNSMT 


R1,-(SP) 
#2,R1 


#1,R0 
PSZ11,STPGSZ(RO) 
PS211(RO) ,STPGSZ(R1) 


#3,R0 
PSZ11(R1),STPGSZ(RO) 


“OFFSET ADJUSTMENT 
“RESTORE R1 


;SAVE R1 TEMPORARILY 

sOFFSET 

s OFFSET 

; THEN = "A", SET UP ARG LIST 
FOR 11 INCH PAGE. 

SOF FSET ADJUSTMENT 


(SP)+,R1 “RESTORE R1 

WSTPGSZ RI :ADDRESS OF ARGUMENT LIST 

R3- 

PC,XMIT :SEND TO PRINTER... SET PAGE SIZE 

PC ERRORS “CHECK FOR ERRORS. 

#1,R0 

#2.R1 s TRANSFER OFFSET FOR 
FRONT, SLTPFF (RO) “SELECT TRAY-PERFORM FORMFEED 
FRONT(RO) , SLTPFF(R1) ‘ARGUMENT LIST 

#3,R0 ‘OFFSET ADJUSTMENT 
FRONT(R1),SLTPFF (RO) ; 

SLIPFF RI :ADDRESS OF ARGUMENT LIST 

R . 

PC, XMIT :SELECT TRAY AND PERFORM FORMFEED. 

PC ‘ERRORS “CHECK FOR ERRORS. 

#FTYTPM,R1 ;FRONT TRAY TOP OF PAGE MESSAGE 

#96. 2 [96 CHARACTERS LONG 

PC, XMIT :SEND TO PRINTER 

PC ERRORS ‘CHECK FOR ERRORS. 

BR2,SCB :IS THE BYTE A 'B" 

CHC2 “IF NOT THEN CHECK FOR A "'C’’ 

SKP14,R1 :SKIP 14 INCHES MINUS 3 LINES VERTICALLY 
DOSPCS ‘PERFORM TASK 

BR2,SCC :1S THE CHARACTER A "'C''? 

ASSMA ‘MUST BE 11 INCH IF NOT B OR C. 

SKPAG,R1 :MUST BE A4 SIZE. SKIP AS - 3 LINES VERTICALLY 
DOSPCS “PERFORM TASK 


———_————————______ -- -———-—— 


¥ SEQ 128 
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13 CUT SHEET FEFDER EXERCISOR 

100 

+ 4 023774 013701 002174 ASSMA: MOV SKP11,R1 311 INCH PAGE. SKIP 11 INCHES = 3 LINES 

103 024000 010137 002176 DOSPCS: MOV R1,CRNTSK sSAVE CURRENT SKIP SIZE. 

104 024004 004737 014176 JSR PC,CONVRT CONVERT TO MNEMONICS 

105 024010 012700 000001 MOV ’ 

106 024014 113760 010046 002226 MOVB MNEB1,VRTCLS(RO) ;MNEMONICS FOR ARG LIST 

107 024022 005200 INC 

108 024024 113760 010047 002226 MOVB MNEB2,VRTCLS(RO) ; 

109 024032 005200 INC 

ist 024034 113760 010950 002226 MOVB MNEBS,VRTCLS(RO) ; 

112 024042 012701 002226 MOV #VRTCLS,R1 sADDRESS OF ARGUMENT LIST FOR VERTICAL SPACING 

113 024046 012702 000005 MOV #5,Re ; 4s 

114 024052 005003 CLR R 

115 024054 004737 012616 JSR PC, XMIT ;SFND TO PRINTER 

18 024060 004737 015246 JSR PC,ERRORS ;CHECK FOR ERRORS. 

18 F24064 012701 007203 MOV #FBTM,R1 ;PRINT BOTTOM OF PAGE MESSAGE 
7 19 024070 012702 000072 MOV #58. ,R2 358 CHARACTERS 

120 024074 005003 CLR R3 

121 024076 004737 012616 JSR PC,XMIT ;SEND TO PRINTER 

is 024102 004737 615246 JSR PC,ERRORS ;CHECK FOR ERRORS. 

124 024106 012700 000001 MOV #1,R0 

125 024112 010146 MOV R1,-(SP) 

126 024114 012701 000002 MOV #2, TEMPORARILY SAVE R1 

127 024120 113760 006415 002276 MOVB REAR, SLTPFF (RO) SELECT REAR TRAY 

128 024126 116061 006415 002276 MOVB REAR(RO) ,SLTPFF(R1) ; AND PERFORM 

129 024134 012700 000003 MOV #3,R0 

130 024140 116160 006415 002276 MOVB REAR(R1) ,SLTPFF (RO) ; FORMFEED. 

13 024146 012601 MOV (SP)+,R1 sRESTORE R1 

133 024150 012701 002276 MOV #SLTPFF RI ;ADDRESS OF ARGUMENT LIST 

134 024154 012702 000005 MOV #5,R2 ; 

135 024160 5003 CLR 3 

136 024162 737 012616 JSR PC, XMIT SEND TO PRINTER 

‘3 024166 004737 015246 JSR PC,ERRORS ;CHECK FOR ERRORS. 

139 024172 012701 005014 MOV #RTYTPM,R1 ;REAR TRAY TOP OF PAGE MESSAGE 

140 024176 012702 000140 MOV #96. ,R2 396 CHARACTERS LONG 

141 024202 005003 CLR R3 

142 024204 004737 012616 JSR PC, XMIT SEND TO PRINTER 

6? 024210 004737 015246 JSR PC,ERRORS CHECK FOR ERRORS. 

145 024214 013701 002176 MOV CRNTSK,R1 ;GET CURRENT SKIP SIZE. 

146 024220 737 014176 JSR PC ,CONVRT ;CONVERT TO MNEMONICS 

147 024224 0127 000001 MOV #1,R0 

148 024230 113760 010046 002226 MOVB MNEB1,VRTCLS(RO) ;MNEMONICS FOR ARG LIST 

149 024236 005200 INC 

150 024240 113760 010047 002226 MOVB MNEB2,VRTCLS(RO) ; 

151 024246 005200 INC 

138 024250 113760 010050 002226 MOVB MNEBS,VRTCLS(RO) ; 

154 024256 012701 002226 MOV #VRTCLS,R1 ZADDRESS OF ARGUMENT LIST FOR VERTICAL SPACING 

155 024262 012702 000005 MOV #5 ,R2 : 

156 024266 605003 CLR 


ee ce ec ee ec ed ed ed 


WrOOOon 


024322 
024326 
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S GRAF 
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~m 
= 
Ww 
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2 
024370 
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7 024376 
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024402 
024402 
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oo 
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MACRO 
CUT SH 


004737 
004737 


012701 


104401 


3.01 7-NOV-80 10:06:10 PAGE 42-3 
T FEEDER EXERCISOR 
012616 JSR PC,XMIT ;SEND TO PRINTER 
015246 JSR PC,ERRORS ;CHECK FOR ERRORS. 
007203 MOV #FBTM,R1 ;MESSAGE FOR BOTTOM OF PAGE 
000072 MOV #58. ,R2 ; 
CLR R3 
012616 JSR PC,XMIT ;SEND TO PRINTER 
015246 JSR PC,ERRORS sCHECK FOR ERRORS. 
000001 MOV #1,R0 
000002 MOV #2,R1 ;OFFSET IN ARG LIST 
006420 002276 MOVB NULL , SLTPFF (RO) sEJECT 
006420 002276 MOVB NULL (RO) ,SLTPFF(R1) ; PAGE 
000003 MOV #3,R0 
006420 002276 MOVB NULL(R1) ,SLTPFF (RO) é PRESENTLY 
002276 MOV #SLTPFF,R1 z IN THE PRINTER 
000005 MOV #5,R2 3 
CLR R3 : 
012616 JSR PC,XMIT ;SEND TO PRINTER 
015246 JSR PC,ERRORS sCHECK FOR ERRORS. 
ENDTST 
L10024: 
TRAP CSETST 
EVEN 


.TITLE PARAMETER CODING 
-SBTTL HARDWARE PARAMETER CODING SECTION 


SEQ 129 


paetapndiiananisegnagpaaes Fae AL ae eS TART 1 Leer ee 7 : 
; SEQ 130 


ARAMETER CODING MACRO V03.01 7=NOV-80 10:06:10 PAGE 42 
HARDWARE PARAMETER CODING SECTION 


1 


2 p++ 
3 ; THE HARDWARE tp oe CODING SECTION CONTAINS MACROS 
4 . ay ARE USED BY THE SUPERVISOR TO BUILD P-TABLES. THE 
5 ; MACROS ARE NOT EXECUTED AS MACHINE INSTRUCTIONS BUT ARE 
6 3; INTERPRETED BY THE SUPERVISOR AS DATA STRUCTURES. THE 
7 ; MACROS ALLOW ite a TO ESTABLISH COMMUNICATIONS 
: ; WITH THE OPERATO 
10 
11 024404 ; BGNHRD 
024404 000022 «WORD L10025-LSHARD/2 
024406 LSHARD:: 
13 024406 GPRMD GPD2MS.6,0,3,1,2,YES ;PRINTER WIDTH QUESTION. 
024406 003032 - WORD TSCODE 
024410 025002 WORD GPD2MS 
024412 000003 . ~WORD 3 
024414 000001 ~ WORD TSLOLIM 
024416 000002 ~ WORD TSHILIM 
14 024420 GPRMA GPAMSG,0,0,160000,177777,YES ;CSR ADDRESS QUESTION. 
024420 31 - WORD TSCODE 
024422 024452 WORD GPAMSG 
024424 160000 : ~ WORD TSLOLIM 
024426 177777 - WORD TSHILIM 
15 024430 GPRML GPLMSG,2,1,YES 30211? QUESTION. 
024430 001130 ~WORD TSCODE 
024432 024624 so GPLMSG 
024434 000001 WORD 1 
16 024436 XFERT SNGLP 3SKIP CHANNEL QUESTION IF DL11. 
024436 006024 ~ WORD TSCODE 
17 024440 GPRMD GPOMSG,4,0,7,0,7.YES ;CHANNEL # QUESTION. | 
024440 002032 TSCODE 
024442 024707 “WORD GPDMSG 
024444 000007 WORD 7 ” 
024446 000000 WORD TSLOLIM 
024450 000007 * ~WORD TSHILIM 
18 024452 SNGLP: 
19 024452 ENDHRD 
EVEN 
2 024452 L10025: 
4 ; MESSAGES FOR THE ABOVE CALLS 
23 024452 012 015 111 GPAMSG: .ASCII <12><15>/IF DEFAULT VALUES FOR INTERFACE DESIRED, ENTER “Z./<12><15> 
024455 106 040 104 
24460 105 106 101 
024463 125 114 124 
24466 040 126 101 
024471 114 125 105 
024474 ‘123 040 106 
024477 117 122 040 
024502 111 116 124 
024505 105 122 106 
024510 101 103 105 
024513 040 104 105 
024516 123 111 122 


SEQ 131 
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HARDWARE PARAMETER CODING SECTION 


| 024521 «105 
0 


“Tr 





—_ 
Oo 
= 


0 
24 osezee 012 
25 ase een 


eASCII <12><15>/ /<12><15> 
-ASCIZ /ENTER CONTROL STATUS REGISTER (CSR) ADDRESS.>>/ 


Om So 1 OS SS OOO SS 


MONMNMONWO LMM 2 HS KH WOOo 
—WINIWYIW OM NNIA NIP OA UI 
o--—-0o- Oo | OS oS OO OO SS | OO 


a o Once NM NMOS MLNMOLMN—fNM FAWN wv"! 


MM SW LODO LOCO COoO°o fon -o-- —N— 


0 
26 Osees? GPLMSG: .ASCIZ <12><15>/PRINTER CONNECTED TO A SINGLE LINE INTERFACE? >>/ 


CWRU FH SH LMYNNAO AWHLOWDENOCFWNAOF OUnonvel 


ANN" HONWOO FOwu 


27 024707 GPDMSG: .ASCIZ <12><15>/ENTER INTERFACE CHANNEL NUMBER FOR THE PRINTER. (0-7) >>/ 


AMIAOMAUG FO VIA 9 N FWA SVN AWN HMO MN UVES FSW 


MMO FOO — —“OONP @f—& @ | NOON & 0 2 & $90 2M HNN |] NNVNONW U0 — NNN "NOOO 
enn & SOON SNH] NNOO HH SONS EN OOoO-— 


~ re 
= = 
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w 
o a 
Om Ot 1 OO OS - OF OS -'* OO — BO 1 OO SS SO SS OS CE 


Om a sO SO 2 00 OO OO OO OS OD OD OD OS SS 


on Oe OO 1 OO COO 2 2  - CO" - OOP OO Oe 
w 


So =o eo 
SONI OOVMONMA U1 O S- 1 S NIU 


HEM MNOOUMN HE Swwir 
OWN 9 F&F NNMUOOC OO SOL! 
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inssiseneninsansetiheaeentliceainihdaniiitansnidiibstaiasian sid siaealioainemadiat 


rk ) ! | ¢ 11 | ; 


SEQ 132 
/PARAMETER CODING MACRO V03.01 7=NOV-80 10:06:10 PAGE 42-2 
eee PARAMETER CODING SECTION 


024772 060 055 067 
024775 051 040 076 





29 025002 040 012 015 GPD2MS: .ASCII / /<12><15> 
30 025005 103 110 117 -ASCII /CHOOSE PAGE WIDTH FOR PRINTER/<12><15> 

025010 117 123 105 

025013 040 120 101 

025016 107 105 040 

025021 127 111 104 

025024 124 110 040 

025027 106 117 122 

025032 040 120 122 

025035 111 116 124 

025040 105 122 012 

025043 015 

31 025044 103 110 117 -ASCII /CHOOSE ONE: 1) 80 CHARACTERS PER PRINTER LINE/<15><12> 
025047 117 123 105 
025052 040 117 116 
025055 105 072 040 
025060 040 061 651 
025063 040 070 060 
025066 040 103 110 
025071 101 122 101 
025074 103 124 105 
025077 122 123 040 
025102 120 105 122 
025105 040 120 122 
025110 111 116 124 
025113 105 122. 040 
025116 114 111 116 , 

025121 105 015 012 . 

32 025124 011 040 040 -ASCII / 2) 132 CHARACTERS PER PRINTER LINE/<15><12> | 
025127 040 040 040 | 
025132 040 062 051 
025135 040 061 063 
025140 062 040 103 
025143 110 101 122 
025146 101 103 124 
025151 105 122 123 
025154 040 120 105 
025157 122 040 120 
025162 122 111 116 
025165 124 105 122 
025170 040 114 111 
025173 116 105 015 
025176 012 

33 025177 050 061 054 SASCIZ) /(1,2) >>/ 

025202 062 051 040 
025205 076 076 000 

36 025210 SPATCH:: 

37 .BLKW 10 ; (ADJUST SIZE OF PATCH AREA UNTIL) 
by.) ; (LASTAD + 27264 HAS BIT 7 CLEAR ) 
a 
l 





PARAMETER CODING MACRO VO 
/HARDWARE PARAMETER CODING SECTIO 


41 025230 
025230 000000 
025232 000000 
025234 


——— = —— 


a 7=NOV-80 10:06:10 PAGE 42-3 


LSLAST:: 


LASTAD 


D 11 


SEQ 133 


r 


PARAMETER CODING MACRO V03.01 7=NOV-80 10:06:10 PAGE 4¢4 


|HARDWARE PARAMETER CODING SECTION 
| 1 025234 ENDMOD 
| 2 000001 .END 


L ; ‘ ee 


SEQ 134 





SEQ 135 
PARAMETER CODING MACRO VO3.01 7-NOV-80 10:06:10 PAGE 44-1 
SYMBOL TABLE 
ABORT 015602 CHRCNT 019064 C$Q10 = 000377 EMPTYR 016550 F$SRV = 000010 
/ABSND 017106 CHRLOO 020166 C$RDBU= 000007 EMPTZ3 016252 F$SUB = 000002 
, ABSS 017316 CHRLO6 =021110 CSREFG= 000047 EMP4 017064 F$SW = 000014 
| ACAS 006535 CHRLST 006555 C$RESE= 000033 EMP5 017274 FSTEST= 000001 
/ADR == _-000020 G CLEART 022570 CSREVI= 000003 ENDIN 016566 GETCHR 014012 
AGN 020700 CNTNU 013466 CSRFLA= 000021 EOT 006515 GPAMSG 024452 
ALPHA 013514 OIE 013456 CSRPT = 000025 ERMSGB 007316 GPDMSG 024707 
ASSEMB= 000010 CONTLO 014112 CSSEFG= 000046 ERRBLK 010100 G GPD2MS 025002 
ASSMA 023774 CONVRT 014176 CSSPRI= 000041 ERRMSG 010076 G GPLMSG 024624 
AUTCAL 022224 CR 02313 C$SVEC= 000037 ERRNBR 010074 G GREASE 002206 
AUTOLD 022232 CRCLX 015152 CSTPRI= 000013 ERRORS 015246 GTNUM 022744 
AUTOLE 022236 CRNTPR 006502 DASHES 006542 ERRTYP 010072 G GSCNTO= 000200 
BASET 005262 CRNTSK 002176 DCUPA 015446 ERSETT 014160 GS$DELM= 000372 
BAUDRT 005252 CSRADD 002200 DDCUPA 015500 ERWORD 006500 G$DISP= 000003 
BAUTBL 6464 CTLZ 006524 DELAYS 015224 ESCAPE 006521 GSEXCP= 000400 
BETA 013476 C$AU_ = 000052 DELCNT 010054 EVL = 000004 G G$HILI= 000002 
BFRA 007352 CS$AUTO= 000061 DFAIL. 005260 EXETS 013576 G$LOLI= 000001 
BFRB 010030 CSBRK = 000022 DFAULT 017032 EXIT 022230 G$NO = 000000 
BFRC 010032 CSBSEG= 000004 DFPTBL 002160 G EXITA 022044 G$O"rS= 000400 
BFRD 010034 UB= 000002 DIAGMC= 000000 EXITE 014166 GfuUFSI= 000376 
BIDIRP 012726 CSCEFG= 000045 DIRCTN 006504 EXITON 014004 GS$PRMA= 000001 
BITO = 000001 G C$CLCK= 000062 DLDFLT 005254 EXITS 013626 GSPRMD= 000002 
BITOO = 000001 G C$CLEA= 000012 DLSET 016602 EXITSR 015216 GSPRML= 000000 
BIT01 = 000002 G C$CLOS= 000035 DONEDF 017450 EXITX 013352 GSRADA= 00014 
BITO2 = 000004 G C$CLP1= 000006 DOSPCS 024000 EXIT11 022460 GSRADB= 000000 
BITO3 = 000010 G CSCVEC= 000036 DUMMYS 002214 EXTMCR 015450 GS$RADD= 000040 
B1T04 = 000020 G CSDCLN= 000044 DZDCOD 017220 ESEND = 002100 G$RADL= 000120 
BITOS = 000040 G C$DO0DU= 000051 DZDFLT 005256 ESLOAD= 000035 G$RADO= 000020 
BIT06 = 100 G CSDRPT= 000024 DZSET 016672 FAILDF 017426 GS$XFER= 000004 
BIT07 = 200 G $DU = 000053 ECNRB = 020000 FAILDL 012122 G$YES = 000010 
B1T08 = 000400 G CSEDIT= 000003 EDFMA 011230 FAILDZ 012220 HEXA = 000052 
BITOY = 001000 G CSERDF= 000055 EDFMB 011331 FAILM 011602 HEXB = 000053 
BIT! = 000002 G CSERHR= 000056 EDFMC 011444 FRTM 007203 HEXC = 000054 
B1T10 = 002000 G CSERRO= 000060 EDFMD 011520 FIVE = 000045 HEXD = 000055 
BIT11 = 004 G CSERSF= 000054 EDFMO 010361 FLTRDY 006512 HEXE = 000056 
BiT12 = 010000 G CSERSO= 000057 EDFM1 010422 FOUR = 000044 HEXF = 000057 
BIT13 = 020000 & CSESCA= 000010 EDFM2 010475 FRONT 006412 HITARG 010060 
BIT14 = 040000 G CSESEG= 000005 EDFM3 010543 FTYTPM 004654 HOE = 100000 G 
B1T15 = 100000 G = 000003 EDFM4 010622 FWRDO 013164 HRZTLS 002233 
BIT2 = 000004 G CSETST= 000001 EDFMS 010650 FXRDYM 012316 HZTLSP Q02212 
BITS = 000010 G CSEXIT= 000032 EDFM6 010677 $AU_ = 000015 IBE = 010000 G 
BIT4 = 000020 G C$GETB= 000026 EDFM7 010755 FSAUTO= 000020 IDU = 000040 G 
BITS = 000040 G C$GETW= 000027 EDFM8 011026 FSBGN = 000040 ER = 020000 G 
BIT6 = 000100 G C = 000043 EDFM9 = 011175 FSCLEA= 000007 INFIN 016514 
BIT? = 000200 G CSGPHR= 000042 EF .CON= 000036 G FSDU_ = 000016 INIERR 014466 
BIT8 = 000400 G C$GPLO= 900030 EF .NEW= 000035 G FSEND = 000041 INITCD 014274 
BIT9 = 001000 G C$GPRI= 000040 EF .PWR= 000034 G FSHARD= 000004 INITLZ 015522 
= 00 G CS$INIT= 000011 EF .RES= 000037 G = 000013 INLOOP 015232 
R2 006514 CSINLP= 000020 EF.STA= 000040 G FSINIT= 000006 INUPB 010070 
CALLDF 0156 CSMANI= 000 EIGHT = 000050 FSJMP = 000050 ISR = 000100 G 
CALLDL 015700 CSMEM = 000031 EIGHTY 016506 FSMOD = 000000 IXE = 004000 G 
AN 006516 CSMSG = 00002 EMPTIB 014310 FSMSG = 000011 I$AU_ = 000041 
CCOUNT 010066 CSOPEN= 000034 EMPTI2 015746 FSPROT= 000021 ISAUTO= 000041 
CHC2 023756 CSPNTB= 000014 EMPTI3 016246 FSPWR = 000017 ISCLN = 000041 
CHKC 023476 CSPNTF= 000017 EMPTI4 017060 FSRPT = 000012 1$D0U = 000041 
| CHKCAN 013552 CSPNTS= 0000 EMPTIS 017270 FSSEG = 000003 [$HRD = 000041 
017552 CSPNTX= 000015 EMPTL2 015752 FSSOFT= 000005 ISINIT= 000041 


G 11 


SEQ 136 
PARAMETER CODING MACRO V03.01 7-NOV-80 10:06:10 PAGE 44-2 
‘eee TABLE 
/ISMOD = 000041 LSEXPS 002066 G MXLF = 002000 PLOOP9 021570 SKP11 002174 
ISMSG = 000041 LSHARD 024406 G NDATA 010056 PNT = 001000 G SKP14 002170 
ISPROT= 000040 LSHIME 002120 G NEWMOD 017754 PRARCH 022736 SLFTST 002255 
ISPTAB= 000041 LSHPCP 002016 G NEXTU 015550 PRI = 002000 G SLTPFF 002276 
ISPWR = 000041 LSHPTP 002022 G NINE = 000051 PRI0O0 = 000000 G SNGCHR 006522 
ISRPT = 000041 L$HW 002160 G NONDTA 015774 PRIO1 = 000040 G SNGLP 024452 
I$SEG = 000041 L$ICP_ 002104 G NONDT2 016102 PRIO2 = 000100 G SPACE 006541 
ISSETU= 000041 LSINIT 015522 G NONDT3 016136 PRIOS = 000140 G SPCSIZ 010036 
I$SRV = 900041 LSLADP 002026 G NONDZA 016274 PRI04 = 000200 G TATS 015020 
1$SUB = 000041 LSLAST 025234 G NONDZ2 016402 PRIOS = 000240 G STATUS 002315 
I$TST = 000041 LS$LOAD 002100 G NONDZ3 016436 PRI06 = 000300 G STCHSZ 002244 
JENDIN 015604 L$LUN 002074 G NOPRTM 014050 PRIO7 = 000340 G STHTCT 002257 
JUNKPL 006440 LSMREV 002050 G NOTQ 022014 PRMPTA 003200 STLNSZ 002251 
JSJMP = 000167 LSNAME 002000 G NOT1 023000 PRMPTC 003466 STPGSZ 002271 
LCHYET 012716 LSPRIO 002042 G NPRMPT 004531 PRMPTD 004046 STRTUP 015610 
LF 002314 L$PROT 015514 G NULL 006420 PRNTIT 017546 STSCAL 017600 
LINCNT 010062 LSPRT 002112 G NUM! = 000001 PRTBMO 010230 STSERR 014774 
LINCOD 016456 LSREPP 002062 G NUM10 = 000012 PRTM2 016360 STSPSZ 002262 
LINLOO 020124 L$REV 002010 G NUM11 = 000013 PRTXMO 010302 STSRES 002210 
LINLO6 021104 L$RPT 015506 G NUM12 = 000014 PSZA4 002322 STULMD 002266 
LINN 010040 L$SPC 002056 & NUM13 = 000015 PSZ11 002325 SVCGBL= 000000 
LINSIZ 010042 L$SPCP 002020 G NUM14 = 000016 PS214 002330 SVCINS= 000001 
LNELOO 012732 L$SPTP 002024 G NUM15 = 000017 RANDOM 4726 SVCSUB= 000001 
LODELY 014704 L$STA_ 002030 G NUM2 = 000002 RBUF 007302 SVCTAG= 000001 
LOE = 040000 G L$TEST 002114 G NUM3 = 000003 RCSR 007276 SVCTST= 000001 
LOGUNI 002202 L$TIML 002014 G NUM4 = 000004 REAR 006415 S$LSYM= 010000 
LOOPA 021716 LSUNIT 002012 G NUMS = 000005 RESET 002224 07310 
LOOPCK 013724 LILOOP 020424 NUM6 = 000006 RESETC 01432 TCRENA 006436 
LOOPG 014026 L10000 002170 NUM? = 000007 RESINN 013414 TCRTBL 006444 
LOOPXN 013656 L10001 012614 NUM8 = 000010 REVRSP 021304 D 007312 
LOOP8 021440 L10002 015512 NUM9 == 000011 RIBPOS 002240 TESTA 21634 
LOT = 000010 G L10004 017452 NXTA 21740 RTYTPM 005014 TESTB 022050 
LPR 007306 L10005 016600 NXTBIT 015272 SCA 006531 TESTC 022462 
LPRINI 006442 L10006 017454 NXTERM 015374 SCB 006527 TESTD 023360 
L$ACP 002110 G L10007 017466 NXTLIN 021250 Scc 006526 TEST1 017470 
LSAPT 002036 G L10010 017604 ONE = 000041 sca 006525 TEST2 017606 
L$AUT 002070 G L10011 020024 OPTN1 003351 SCX 006530 TESTS 020026 
L$AUTO 017454 G L10012 020272 OUTCTR 006506 $cO 006532 TEST4 020274 
LSCCP 002106 G L10013 020606 OUTRLP 014024 1 006533 TESTS 020610 
LSCLEA 017456 G L10014 021012 OUTSDC 006510 SEED1 006424 TEST6 021014 
L$co 002032 G L10015 021156 OUTSDL 013650 SEED2 006426 TEST? 021160 
LSDEPO 002011 G L10016 021340 OSAPTS= 000000 SELECT 023636 TEST8 021342 
LSDESC 010150 G 10017 021466 O$AU = 000000 SENCHR 013366 TEST9 021470 
LSDESP 002076 G L10020 021632 O$SBGNR= 000000 SENCH2 013376 TFCZ 021770 
LSDEVP 002 G L10021 022046 OSBGNS= 000000 SENCLP 013416 THREE = 000043 
LSDISP 002124 G L 022230 O$du = 000000 SENDR 014140 TIMOM 012512 
LSOLY 002116 G L10023 022734 OSERRT= 000001 SENDR2 013320 TITLEA 003115 
LSOTP 002040 G L10024 024402 OSGNSW= %00000 SETCHO 002310 TITLEB 003264 
LSDTYP 002034 L10025 024452 OSPOIN= 000001 SETER 013614 TITLEC 003717 
L 002072 G MAKE11 023552 O$SETU= 000000 SETHTO 002303 TITLED 003773 
L$OVTY 010102 G MANLD 022352 PALPHA 015174 SETONE 017742 TITLE? 002333 
002052 G MANLE 022372 PERIOD 006534 SETUPC 016162 TITLE2 002566 
LSENVI 002044 G MLTLIN 010052 FMI 016060 SETUP] 014514 TITLES 002446 
LSERRT 010072 G 010046 PGMCTR 007314 SETIS 015202 TITLES 002513 
LSETP 002102 G MNEB2 010047 LOC 002204 SEVEN = 000047 TITLES 002564 
LSEXP1 002046 G 010050 PLOOP 017674 SIx = 000046 TITLE6 002645 
LSEXP4 002064 G MSGADD 005246 PLOOPC 022612 SKPA4 002172 TITLE? 002725 


H 11 
SEQ 137 


PARAMETER CODING MACRO V03.01 7-NOV-80 10:06:10 PAGE 44-3 

SYMBOL TABLE 

‘TITLES 002772 TSGMAN= 000000 TSTEMP= 000000 T1411 022050 G WAITMX 011432 
ITITLED 003046 TSHILI= 000007 TSTEST= 000015 TIIPMT 004346 WAITXN 013640 
TMPLT1 006430 T$LAST= 000001 TSTSTM= 177777 T12 022462 G 012414 
TMPLT2 006432 T$SLOLI= 000000 T$TSTS= 000001 T13 023360 G WTSTPM 005154 
TMPLT3 006434 TSLSYM= 010000 TS$AUT= 010006 T2 017606 G XBUF 007304 
TOPSTK 010026 TSLTNO= 000015 T$$CLE= 010007 T3 020026 G XCSR 007300 
TRDYBT 010044 TSNEST= 177777 TS$HAR= 010025 T 020274 G XMIT 012616 
TRNSMT 023614 T$NSO = 000000 T$$HW = 010000 15 020610 G XOFF 006517 
TRXADD 005250 TSNS1 = 000004 TSSINI= 010004 T6 021014 G XON 006520 
TRYAGN 014730 T$NS2 = 000010 TS$MSG= 010001 17 021160 G XSTR 012670 
T = 000042 TSPTNU= 000000 T$SPRO= 010003 18 021342 G X$ALWA= 000000 
TSARGC= 000001 TSSAVL= 177777 TS$RPT= 010002 19 021470 G X$FALS= 000040 
TSCODE= 002032 TSSEGL= 177777 T$$SRV= 010005 UAM = 000200 G X$SOFFS= 000400 
TSERRN= 000000 T$SUBN= 000000 T$STES= 010024 UBTRAP 016572 G X$TRUE= 000020 
TSEXCP= 000000 TSTAGL= 177777 T1 017470 G UCRB = 010000 ZERO = 000040 
TSFLAG= 000040 TSTAGN= 010026 110 021634 G VRTCLS 002226 $PATCH 025210 G 


- ABS. 025234 000 
000000 001 
ERRORS DETECTED: 0 
VIRTUAL MEMORY USED: 20886 we eed 82 PAGES) 


DYNAMIC MEMORY AVAILABLE FOR 6 S 
CZLQPA.BIN,CZLQPA.SEQ/C/N: TOC=SVC34R.MLB.CZLQPA.P11 


1 11 


PARAMETER CODING MACRO VO3. "i 7-NOV-80 10:06:10 PAGE S-1 
CROSS REFERENCE TABLE (CREF v01-05 


'spatcn 43- 368 


41-146 


BETA 14-644 14-76 14-97 
BFRA 99-3964 13-67 37-32 37-37 37-50 37-54 37-59 
BFRB 9-4004 38-51 38-54 
BFRC 9-4014 40-38 40-42 


BITO 8-24 18-87 20-71 23-52 


BITOO 8-2 8-28 

BITO1 8-2 B-2e 

BITO2 8-2 8-24 

BITO3  B=2 8-2# 

BITO4 8-2 8-24 

BITOS 8-2 8-24 

BIT06 = 8-2 8-28 

BITO/ = 8-2 8-28 =: 16-41 

BITOB 8-2 8-24 

BITO9 = 8-2 8-24 

BIT} 8-24 

BITI0 8-24 

BIT11  8-2# 

BITI2 8-24 8-43 -94 15-55 - 18-99 

BIT13 8-24 (8-42 16-61 18-100 28-35 

BIT14 8-2# 29-21 29-27 30-30 30-36 31-28 31-34 
35-33 36-27. 36-33. «37-24 «= 37-30 «= 38-32 38-38 

BITIS 8-2# 14-103 15- 16-62 16-75 = 18-101 20-80 


BIT4 8-24 

BITS 8-24 17-46 17-56 17-61 26-349 

BIT6 8-24 

BIT7 8-24 14-61 15-48 18-56 26-64 26-125 26-186 
BIT8 8-24 

BIT9 8-24 

BOE 8-28 

BR2 9-315# 42-24 42-30 42-42 42-89 42-95 
$AU 5-74 

C$AUTO 5-74 26-529 

CSBRK 5-74 

C(SBSEG 5-7# 


26-284 26-428 


33-28 33-34 
26-80 26-142 


26-479 


34-24 
26-351 


34-30 
26-443 


SEQ 138 


35-27 
26-494 


J 11 


0 139 
PARAMETER CODING MACRO V03.01 7=NOV-80 10:06:10 PAGE S-2 - : 
CROSS REFERENCE TABLE (CREF VO1-05 ) 
! 
C$BSUB 5-7" 
CSCEFG 5-78 
CSCLCK 5-78 
CSCLEA 5-7# = 27-16 
CSCLOS | 5=7# 
CSCLP1 «5-78 
2 ot RE; ot) Se 
-7 " - 6- 6-88 26-94 26119 -26+150 26-156 26-51 
C$DODU 5-78 . ’ . 
CSDRPT 5-74 
(sou. «5-7 
CSEDIT 5-78 = -5+24 
CSERDF 5-74 
CSERHR 5-78 
CSERRO 5-78 23-59 
CSERSF 5-78 
CSERSO 5-78 
CSESCA 5-78 
CSESEG 5-74 
Sete Ste 241258 S072 | 
. . . 31-84 32-65 «33-56-61 «85-50 86-56 «87*70 0-38-63 GI 42-179 
CSEXIT 5-78 © 96-193. 37-11 . “im 
CSGETB | 5-7# 
CSGETW 5-78 
CSGMAN 5-7# 37-32-3851 «G0$3B 1-33-24 
CSGPHR 5-78 26-30 
CSGPLO 5-78 
CSGPRI 5-74 
CEINIT 5-7# 26-523 
CSINLP | (5-78 
CSMANI 5-74 
CSMEM 5-78 
CSMSG 5-74 11-16 . 
SOND Saye 2361-23-76. 23 B2 20 : 
» . . \s 28- 29-19 30-28 «31-26 32-31 «33-26 B22 35-25. 86=25.— «8722 
38-30 40-36. 41-23 221 
CSPNTF 5-7 26-57 26-87-2693. 26-118 26-149 26-155 26-511 
CSPNTS 5-7 
CSPNTX 5-7# 14°55. 15-69-1656 23-62 
$olo0. 5-78 
C$RDBU 5-78 
CSREFG 5-78 26-19-2622 
CSRESE 5-7# 49 5-7 
CSREVI 5-7#@ = 5-24 
CSRFLA 5-78 
CSRPT 5-74 24-14 
C$SEFG 5-78 
CSSPRI (5-78 
CSSVEC 5-78 26-36 
CSTPRI 5-74 
26-107 
56-109 
14-88 16-69 | 
39-31* 39-50# 39-51 1-53* 41-608 41-61 
42-958 
45-428 


14-884 





————_—__—- ---—--- 


|PARAMETER CODING 


28-328 





| MACRO V03.01 7=-NOV-80 10:06:10 PAGE S-3 
iCROSS REFERENCE TABLE (CREF vO1-05 ) 


26-465 


hRONR—— a oo 
th th 1 
meow oe eo 
MONA USE S&S 


33-46* 


34-36 


32-44 
29-53 


13-1118 
42-145 


18-147 
21-42* 


135-117* 
26-417 
26-5144 
42-1034 
26-453 


26-466 


20-90 


33-47 


36-44 


41-164 
31-41 


13-218* 


21-408 


13-175* 


26-4604 


36-40" 36-50* 36-51 


41-173 = 41-204 = 41-220 
31-75 37-42 41-64 


18-136* 


21-47 39-40 


18-140* 


42-104 


42-146 


SEQ 140 


L 11 





PARAMETER CODING 


SEQ 141 


MACRO V03.01 7-NOV-80 10:06:10 PAGE S=4 


CROSS REFERENCE TABLE (CREF V01-05 ) 


13-134 13-140) 9= 13-147) 13-184 = 13-190) 13-195. 13-201) 13-208 = 13-216 = 13-222 


13-129 


41-216 


9-445# 23-56% 


16-70 


16-754 
23-808 


9-3024 14-94% 






5-74 


EXTMCR 23-47 


M11 


SEQ 142 


MACRO V03.01 7-NOV-80 10:06:10 PAGE S-5 


CROSS REFERENCE TABLE (CREF V01-05 ) 


PARAMETER CODING 
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SEQ 143 

PARAMETER CODING MACRO V03.01 7-NOV-80 10:06:10 PAGE S-6 

CROSS REFERENCE TABLE (CREF v01-05 ) . 

HEXD 8-208 

HE XE 8-214 

HE XF 8-224 9-260 9-260 9-260 13-125 13-155 13-158 

HITARG a 30-39« 30-41 30-42 30-61 

HRZTLS 99-51% 31-53% 31-55* 31-57 31-65 412175* 412177 61-179" 41-187 3 =41=206* 41-208* 41-210" 41-212 

HZTLSP 9-4 . 

$ 5-78 

ISAUTO 3 5-78 26-5278 26-5294 

ISCLN 5-74 27-78 27-11 27-164 

$DU 5-74 

ISHRD 43-114 43-194 

ISINIT ~7 it 26-78 26-193 26-5234 

1$M0OD 5-74 5-8 5-84 44-1 44-14 

1SMSG 5-74 11-94 11-164 

ISPROT 5-78 25-78 

ISPTAB 5-78 

ISPWR 5-74 

ISRPT 5-74 24-84 24-148 

ISSEG 5-74 28-5 29-4 30-8 31-4 32-3 33-4 34-4 35-5 36-3 37-2 38-4 41-4 42-4 

ISSETU 5-74 

ISSRV 5-74 26-2254 26-2294 

$s 5-74 28-5 -4 30-8 31-4 32-3 33-4 34-4 35-5 36-3 37-2 38-4 41-4 42-4 

ISTST 5-74 28-5 28-54 28-41 28-418 28-418 29-4 29-44 29-58 29-584 29-584 30-8 30-84 30-72 
30-724 30-724 31-4 31-44 31-84 31-848 31-848 32-3 32-34 32-65 32-654 32-654 33-4 33-48 
33-54 33-544 33-548 -4 34-44 34-61 34-618 34-618 35-5 35-54 35-50 35-50" 35-504. 36-3 
36-34 36-54 36-548 36-544 37-2 37-24 37-70 37-704 37-708 38-4 38-44 38-63 38-634 38-634 

se y= 41-48 41-82 41-824 41-824 42-4 42-48 42-179 42-1798 42-1798 

1DU 8-24 

IER 8-2 

INFIN 26-173 26-1754 

INIERR 18-76 18-80 18-84 18-89 18-93 18-994 

INITCD 1 27-9 28-19 29-18 30-27 31-25 32-30 33-25 34-21 35-24 36-24 37-21 38-29 41-22 

INITLZ 26-194 

INLOOP 21-424 21-44 

INUPB 9-44084 

ISR 8-24 

IXE 8-24 

SJMP 5-74 11-12 24-10 

JENDIN 26-20 26-344 

JUNKPL 9-272# 26-286 26-287 

LSACP 5-248 

LSAPT 5-248 

LSAUT 5-248 . 

LSAUTO 5-24 26-5274 

LSCccP 5-248 

LSCLEA 5-24 27-78 

L$co 5-248 

LSDEPO 5-244 

LSDESC 5-24 10-174 

LSDESP 5-244 

LSOEVP 5-248 

LSOISP 5-24 6-54 

LSDLY 5-248 

LSoTPe 5-248 


—_-——————- 
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CROSS REFERENCE TABLE (CREF VO1-05 ) 


SEQ 144 





LSDTYP 5-248 

L$DUT 5-244 

L$OVTY 5-26 16-118 

SEF 5-24" 

LSENVI 5-24¢ 

LSERRT 5-24 9-4454 

LSETP 0s 5-24 ‘ 
LSEXP1 5-248 

LSEXP4 5-248 

LSEXPS  5-24@ 

L$HARD 5-26 43-11 43-114 
L$HIME 5-248 

LSHPCP 55-248 

LSHPTP 5-244 a“ 
L$HW 5-24 7-9 7-94 
L$ICP 0 «5 =24e 

L$INIT 5-246 26-78 

L$LADP 5-24a 

LSLAST 5-24 43-414 

L$LOAD 5-24# 

L$LUN  5-24m 

L$MREV 5-248 

L$NAME 5-248 

L$PRIO 5-24# 

L$PROT 5-24 25-7# 

$PRT 5-248 
LSREPP 5-248 
LSREV 5-248 
L$RPT 24-88 
L$SPC 0 S24 
L$SPLP 5-244 
L$SPTP 5-248 
L$STA 0-5-2 
LS$TEST 5-248 
LSTIML 5-244 

5-248 


6-5234 


7-11 27-168 
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PARAMETER CODING 





MAKE11 42-43 42-558 
MANLD 38-58 40-364 


MLTLIN 9-422# 26-283* 
MNEB1 


NONDZ 
NONDZ3 26-154 26-1584 
NONDZA 26-123 26-126 


NOT1 41-150 41-1564 
NOTQ 37-51 37-584 
NPRMPT 9-137# 40-38 

“| 9-260 42-169 


NUM10 8-334 
NUM11 8-344 
NUM12 8-354 
NUM13 8-368 
NUM14 8-378 
NUM15 8-384 
2 8-254 
NUM3 8-268 
8-278 

NUMS 8-288 


26-286* 
26-362* 


40-53 


26-718 


26-1334 


42-170 


31-81 
26-174% 


26-28 


26-338* 
26-363 


26-52* 
26-486" 


42-172 


32-62 


26-175 


26-30 


26-363* 


29-50 


C 12 


MACRO V03.01 7-NOV-80 10:06:10 PAGE S-8 
CROSS REFERENCE TABLE (CREF V01-05 ) 


30-57 


33-47 


34-37 


34-43 


35-37 


26-146 


36-35 


26-227* 


26-419 


SEQ 145 


26-4355* 


i 
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PARAMETER CODING 0 v03. " 7-NOV-80 10:06:10 PAGE S-9 
CROSS REFERENCE TABLE (CREF Noy 05) 


NUM6 8-298 

NUM7 8-30" 

NUM8 8-314 

NUM9 8-324 

NXTA 37-374 37-67 

NXTBIT 23-524 23-71 

NXTERM 23-53 23-6684 

NXTLIN 34-354 34-59 

OSAPTS 5-74 5-24 

O$SAU 5-74 5-24 

OSBGNR 5-74 5-24 

OSBGNS 5-78 5-24 

O$DU 5-74 5-24 

OSERRT 5-78 5-214 5-24 

OSGNSW 5-74 5-24 

OSPOIN 5-74 5-21 5-214 5-24 
OSSETU 5-74 5-24 43-41 

ONE 8-84 9-258 29-37 29-42 39-43 
OPTN1 99-1114 38-51 

OUTCTR 9-308# 16-38% 16-52* 16-54 16-58 
OUTRLP 16-394 16-59 

OUTSDC 9-309# 15-42% 15-62* 15-63 
OUTSDL 15-434 15-64 


82 
PGMCTR 9-372# 13-58% 18-50* 23-49% 23 
PLOC 9-178 26-30" 26-44 26-105 26- 


PNT 8-24 
PRARCH 41-57 41-1354 
PRI ' B-2a 
PRIOO 8-28 
PRIO1 8-24 
PRIO2 8-28 
PRIO3 8-24 
PR1I04 8-24 
PRIOS 8-28 
PR106 8-28 


PR1O7 5-24 8-24 26-36 


RESET 9-478 18-69 


1 
68 26-273 26-330 


26-354 


26-361 


26-337« 
26-274* 


26-415* 


26-431 
26-331 


26-465* 


26-482 
26-3498 


26-428 


26-479 


SEQ 146 


‘PARAMETER CODING 


‘CROSS REFERENCE TABLE (CREF v01-05 ) 


RESETC 
RESINN 
REVRSP 
RIBPOS 
RTYTPM 
SSLSYM 


SENCHR 
SENCLP 


18-112 


42-34+ 


18-102 
20-43 


18-118« 
5-134 


5-24 
5-24 


13-2134 


14-1034 


42-73* 
30-50 


31-48 

13-143 
18-113 
42-36* 
20-434 
20-46 

18-119 


5-24 


39-33* 
24-148 


37-32 
41-33 


31-70 
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39-44 40-46* 


26-5298 27-164 
37-324 37-708 
41-338 41-824 


42-128 42-130* 


30-66 
42-51* 42-58 


SEQ 147 


13-187 


SEQ 148 
43-41 43-41 43-41 


43-11 


27-7 


26-527 
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PARAMETER CODING 
CROSS REFERENCE TABLE (CREF v01-05 ) 
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SEQ 151 


PARAMETER CODING MACRO V03.01 7-NOV-80 10:06:10 PAGE S-14 
‘CROSS REFERENCE TABLE (CREF v01-05 ) 

i114 6-5 31-44 

iTS 6-5 32-34 

iT6 6-5 33-44 

|17 6-5 34-44 

T8 6-5 35-54 

T9 6-5 36-34 

TCR 9-370# 14-45% 26-287% 26-34i* 
TCRENA 9=2718 14-45 26-358 

TCRTBL 9-2834 26-358 

TOR 9-371 26-344% 26-346 


TEST 35-248 
TEST 36-248 
TESTA 37-214 
TESTB 38-298 
TESTC 41-228 
TESTD 42-204 
TFCZ 37-40 «=: 37-50" 
THREE 8-108 30-61 
Tl 10-189" 15-69 
TITLE1 9-884 28-20 
TITLE2 9-89 29-19 29-22 
TITLES 9-918 30-28 30-31 
TITLES 9-938 31-26 31-29 
TITLES 9-95# 32-31 32-34 
TITLES 9-97 33-26 «= 33-29 
TITLE? 9-998 34-22 34-25 
TITLES 9-101 35-25 35-28 
TITLED 9-103# 36-25 36-28 
TITLEA 9-105# 37-22 37-25 
TITLEB 9-109# 38-30 38-33 
TITLEC 99-1214 41-23 41-26 
TITLED 9-123# 42-21 
TMPLT1 9-266" 17-43 
TMPLT2 9=267# 17-50 x 
TMPLTS 9-268# 17-60 20-57 20-62 20-70 
TOPSTK 9-398# 13-69%  13-70« 
TROYBT 9-4}0# 14-64 26-284 26-3518 
TRNSMT 42-40 42-53 42-640 
TRXADD 9-1498 13-65" 23-62 
TRYAGN 19-404 19-58 
TWO 8-98 = 9-259 
UAM 8-28 
UBTRAP 26-36 26-225# 26-2274 
UCRB B= 3 


VRTICLS 9-50# 32-46* 32-48 32-50" 32-52 41-166 
42-108* 42-110" 42-112 42-148* 42-150" 42-152¢ 

WAITMX 10-1544 

WAITXN 14-81 15-394 

WFC 10-1884 16-56 

WISTPM 8 9-143# 14-55 


2 ae + a Q1-170* 41-181 9 41-222" 41-2248 41-226" 41-228 42-106" 
42-1 


ciation 
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SEQ 152 


MACRO V03.01 7=NOV-80 10:06:10 PAGE S-15 


PARAMETER CODING 
CROSS REFERENCE TABLE (CREF v01-05 ) 


28-33 


18-96 


9-259 13-186 18-79 18-83 18-88 18-105 18-112 §=18-118 29-39 30-39 


9-259 


tS a! bas * ee K 12 


SEQ 153 
PARAMETER CODING MACRO V03.01 7-NOV-8C 10:06:10 PAGE M-% 
CROSS REFERENCE TABLE (CREF v01-05 ) 
1-158 5-74 26-20 
1-194 5-78 
1-234 5-78 
1-314 5-78 26-527 
1-394 5-74 27-7 
1-478 5-78 
1-554 5-78 43-11 
1-664 5-74 7-9 
1-778 5-74 26-7 
1-854 5-78 5-8 
1-984 5-78 11-9 
1-1064 5-74 25-7 
1-1148 5-78 
1-144 5-78 24-8 
1-1524 5-74 
1-1614 5-74 
1-1824 5-74 
11-1934 5-74 26-225 
1-2014 5-78 
1-225 5-78 
ar” 5-74 28-5 29-4 30-8 31-4 32-3 33-4 34-4 35-5 36-3 37-2 38-4 41-4 
11-2664 5-74 26-23 26-31 
1-270# 5-78 
11-2748 5-78 
1-2784 5-78 
1-2824 5-7# 
1-2864 5-78 
11-2924 5-78 
11-2964 5-74 26-183 
1-3014 5-78 
1-3224 5-74 
11-3174 5-78 10-17 
11-3414 5-78 10-11 
1-346# 5-74 6-5 
1-360 5-74 
1-3768 5-78 23-78 26-33 26-58 26-88 26-94 26-119 = 26-150 =. 26-156 = 26-512 
1-3804 5-74 
11-3854 5-78 
1-389 5-7# 
1-4014 5-78 26-529 
1-41 5-74 27-16 
11-4258 5-74 
11-4418 5-78 
1-4534 5-78 43-19 
11-4654 5-74 7-17 
11-4758 5-78 26-523 
1-4878 5-78 -1 
1-500# 5-74 11-16 
1-5124 5-78 25-13 
1-520# 5-74 
1-5298 5-78 24-14 
11-5414 5-74 
1-5554 5-74 
1-56 5-74 
1-580# 5-74 26-229 





43-138 


SEQ 154 
41-82 
43-17 


38-63 
43-13 
43-13 


37-70 
42-248 
42-248 


36-54 
42-24 


35-50 
41-334 


34-61 
41-33 


L 12 
32-65 33-54 
40-388 


42-24 


31-84 
41-33 


24-10 26-193 27-11 
40-38 


9-445 
11-12 
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PARAMETER CODING 





SEQ 156 


MACRO V03.01 7-NOV-80 10:06:10 PAGE M-4 


CROSS REFERENCE TABLE (CREF V01-05 ) 


PARAMETER CODING 
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PARAMETER CODING MACRO VO03.01 7=NOV-80 10:06:10 PAGE M-6 
/CROSS REFERENCE TABLE (CREF v01-05 


MSXFER 1-a82¢ 
MANUAL 1-;62# 
MEMORY 1-;66# 
OPEN i-;718 
POINTE 1-;76# 


7 
11-124 §=24-10# 26-1934 27-118 


XFERF 1-164 
XFERT 1-a204 


5-78 43-16 43-168 
5-78 
5-74 
5-78 
5-74 5-21 
PRINTB 1-<39# 5-78 23-61 23-76 23-82 28-20 29-19 30-28 31-26 
37-22 38-30 40-36 41-23 42-21 
PRINTF 1=<79# 5=-7# 26-57 26-87 26-93 26-118 26-149 926-155 = 26-511 
PRINTS 1-=19% 5-7# 
PRINTX 1-=59H 5-78 14-55 15-69 16-56 23-62 
READBU 1-=99% 5-7# 
READEF 1=>034 5-7# 26-19 26-22 
RFLAGS 1->08# 5-7# 
SETPRI 1->13# 5-7 
SETVEC 1=>184 5-74 26-36 
5-74 
5-74 
5-64 
5-74 
5-78 
5-78 


32-31 


33-26 


34-22 


35-25 


SEQ 158 


36-25 


